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LECTEURS 

N'usez plus vos doigts ! 


Il est 3 heures du matin, vos paupiè¬ 
res se ferment toutes seules et 
vous avez tapé un listing dans 
lequel se trouvent encore des er¬ 
reurs de saisie ? Pas d’angoisse ! 
Nous avons pensé à vous... Tournez 


vite les pages et allez lire notre bon 
de commande page 5 , en nous le 
renvoyant dûment rempli et accom¬ 
pagné de son paiement, vous rece¬ 
vrez tous les listings parus dans ce 
numéro. 
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I NFORMRT I QU 


c’est 2 magasins 

AMSTRAD 


62, rue Gérard - 75013 PARIS o Uf/e 7, rue de l’Eglise - 92220 NEUILLY-SUR-SEINE 

Tél. : (1) 45.81.51.44 du i, 10 h a (angle rue des Poissonniers) 

Télex : RUNINFO 270841 F au «I * 19 h Tél. : (1) 46.40.73.26. 

Métro PLACE D’ITALIE Sortie bobillot Métro et Bus PONT DE NEUILLY 


RUN, c’est le standard, 
la qualité, l’information, 
le service avant/après-vente. 


la nouveauté sérieuse 

PCW 9512 


PC 164 


Enfin 

disponible !! 


mm 



«fia 


1640 SD Mono Hercules 
1640 SD Couleur EGA . . 
1640 DD Mono Hercules 
1640 DD Couleur EGA 
1640 HD Mono Hercules 
1640 HD Couleur EGA . . 


6 510 F 

10 070 F 

7 695 F 

11 255 F 
11 255 F 
14 815 F 


les produits AMSTRAD 

disponibles 

sont chez RUN. 


te classique PC 

PC ldT““ 




Imprimante à marguerite 
Traitement de texte 
intégré 6 510.F 


le classique 
familial 


CPC 

Nous co 



les derniers 
logiciels !! 
les jeux 
les plus récents 
sont chez RUN !! 

venez nous voir. 


les joysticks 


THE ELITE 130 F | 
. 4 microswitches 
. Sensible Rapide 


V. 

PC 1512 HD monqcl^pme 
PC 1512 SD monoèhfôme "3 970 F 

PC 1512 SD couleurs.7 105F 

PC 1512 DD monochrome ... 6 155 F 
PC 1512 DD couleurs. 8 290 F 

RUN, c’est 

les derniers logiciels U 
les jeux les plus récents 
sont chez RUN H 
Consultez-nous, 
venez nous voir. 


CRÉDIT CETELEM COLLECTIVITÉS 

3 formules: 1. PARTICULIER ÉTUDIANTS consultez-nous, 

2. CRÉDIT ENTREPRISE de bonnes affaires 

3. LEASING vous seront proposées. 


BON DE COMMANDE à renvoyer à RUN dép'. VPC : 62, rue Gérard - 75013 PARIS 

Nom.Prénom. 

Adresse ..... 

... Tél. 


à 


THE PROFESSIONAL 
. 6 microswitches 
. Précision Ergonomie 
Standard 170 F 


JOYSTICK + INTERFACE 
PC COMPATIBLE . 450 F 


Matériel. 

Frais de port (France métropolitaine) : Matériel par SERNAM EXPRESS 200 F. 
Ci-joint mon règlement par chèque bancaire □ ou CCP □ 

SIGNATURE 

Signature des parents pour les moins de 18 ans. 


CREDIT CETELEM IMMEDIAT : NOUS CONSULTER 


Je préfère régler par carte de crédit bancaire n° de carte 

1 I I I 11 I 11 11 11 1111 1 J. I 

Expire à fin.../... 

Date de commande : 

Signature obligatoire : 



DEMANDEZ ^ 

NOS LISTES 3= 

DE PRODUITS V. 

POUR < 

VOTRE MACHINE : 

(marque) 


3 


















































































UTILITAIRE 


VERIFICATEUR V.2 


Vous avez certainement remar¬ 
qué la présence, dans nos lis¬ 
tings, d'un numéro entre cro¬ 
chets ([000]). Ce numéro va vous 
permettre de pouvoir relire très 
facilement vos listings et de 
délecter à coup sûr une éven¬ 
tuelle erreur de saisie. Vous 
pourrez trouver ci-dessous trois 
courts programmes correspon¬ 
dant chacun à une version de 
CPC. Vous devrez donc saisir 
celui qui vous concerne (sans 
erreur !) et le sauvegarder. Cet 
utilitaire vous serv ira désormais 
pour tous nos listings, de ce 


numéro et des suivants. Celte 
méthode est testée depuis plu¬ 
sieurs mois par notre confrère 
allemand CPC Schneider Inter¬ 
national. que nous remercions 
pour sa collaboration. 

Mode d’emploi 

Après avoir saisir le programme, 
faites un "RUN". L’écran doit 
normalement s'effacer et affi¬ 
cher « VÉRIFICATEUR V.2 
installé ». Pour vérifier vos lis¬ 
tings, il suffit alors de les char¬ 
ger : ICHECK.2 pour lister le 


programme avec son numéro de 
contrôle. Si celui-ci est sembla¬ 
ble au nombre entre crochets 
paru dans nos listings, la ligne 
est correcte. Si ce numéro diffère 
(voir exemple) vous avez obliga¬ 
toirement fait une erreur de sai¬ 
sie... Simple, non ? 

De la même manière, v ous pour¬ 
rez tirer sur imprimante votre lis¬ 
ting avec tous les numéros de 
contrôle (comme dans nos lis¬ 
tings) en faisant : |CHECK,8. 
Nous espérons que cette 
méthode de vérification vous 
permettra de gagner du temps en 


relecture (seuls désormais les 
numéros de contrôle sont à véri¬ 
fier par- rapport à ceux qui sont 
imprimés dans la revue) et que 
cet « auto-débbugage » décon¬ 
gestionnera les permanences 
effectuées par notre technicien. 
Au travail... 

Nota : le signe « j » (barre ver¬ 
ticale) s’obtient en appuyant 
simultanément sur <SHIFT> 
et <®>. 

Exemple 

10 DATA 2,3,4 1209) 

15 REM si erreur 
(virgule remplacée par 
un point virgule) 

10 DATA 2;3,4 C1873 


100 REM Vérificateur 464 
110 MEMORY IA4FF 
120 FOR aX«tA500 T0 VA607 
130 READ byte* 

140 P0KE aX,VAL("t"+byte*) 

150 NEXT 
160 CLSSPRINT 

170 PRINT"Vérificateur V.2 464 
installe" 

180 CALL &A500)ION 
190 i 

200 DATA 21,09,a5,ûl,0d,a5,c3,dl 
210 DATA bc,00,00,00,00,18,a5,c3 
220 DATA 2a,a5,c3,2f,a5,c3,43,a5 
230 DATA 4f,ce,4f,46,c6,43,48,45 
240 DATA 43,cb,00,00,cf,98,aa,c3 
250 DATA a8,a5,21,27,a5,18,03,21 
260 DATA 24,a5,28,06,cd,00,b9,c3 
270 DATA 06,dd,11,3a,bd,01,03,00 
280 DATA ed,b0,c9,4f,cd,00,b9,0d 
290 DATA 28,08,0d,20,ea,dd,7e,02 
300 DATA 18,04,7b,ll,01,00,cd,a2 
310 DATA cl,cd,a3,e7,e5,4e,23,46 
320 DATA 23,5e,23,56,el,78,bl,c8 
330 DATA cd,3c,c4,e5,09,e3,cd,63 
340 DATA el,21,a4,ac,cd,7a,a5,el 
350 DATA 18,e2,e5,cd,ba,a5,e3,cd 
360 DATA 98,a5,cd,96,f2,e3,cd,f6 
370 DATA a5,cd,4e,c3,el,7e,a7,c8 
380 DATA cd,9B,a5,cd,4e,c3,18,f5 
390 DATA 3a,24,ac,d6,08,47,7e,a7 
400 DATA c8,cd,45,el,23,10,Y7,c9 
410 DATA Cd,24,a5,f5,c5,d5,e5,cd 
420 DATA ba,a5,cd,f6,a5,el,d1,c1 
430 DATA fl,c9,eb,lb,af,47,67,6f 
440 DATA 2f ,32,23,a5,13,1a,d6,30 
450 DATA 38,04,fe,0a,38,f6,la,13 
460 DATA a7,c8,4f,3a,23,a5,al,fe 
470 DATA 20,28,f3,79,fe,22,20,07 
480 DATA 3a,23,a5,2f,32,23,a5,3a 
490 DATA 23,a5,a7,79,c4,8a,ff,4f 
500 DATA ad,07,6f,09,18,dS,3e,20 
510 DATA cd,5c,c3,3e,5b,cd,5c,c3 
520 DATA cd , 79 , ee,3e,5d,c3,5c,c3 


100 REM Vérificateur 664 
110 MEMORY kA4FF 
120 FOR aX«&A500 T0 l<A607 
130 READ byte* 

140 P0KE aX,VAL ( "Ic’+byte*) 

150 NEXT 
160 CLSiPRINT 

170 PRINT"Verificateur V.2 664 
installe" 


100 REM Vérificateur 6128 
110 MEMORY IA4FF 
120 FOR aX*l<A500 T0 kA607 
130 READ byte* 

140 P0KE aX,VAL( "t'-fbyte*) 

150 NEXT 
160 CLSiPRINT 

170 PR INT"Verificateur V.2 6128 
installe" 


180 CALL IA500)10N 
190 i 

200 DATA 21,09,a5,01,0d,a5,c3,dl 
210 DATA bc,00,00,00,00,18,a5,c3 
220 DATA 2a,a5,c3,2f,a5,c3,43,a5 
230 DATA 4f,ce,4f,46,c6,43,48,45 
240 DATA 43,cb,00,00,cf,02,ac,c3 
250 DATA aS,a5,21,27,a5,18,03,21 
260 DATA 24,a5,28,06,cd,00,b9,c3 
270 DATA 4c,cb,11,5b,bd,01,03,00 
280 DATA ed,b0,c9,4f,cd,00,b9,0d 
290 DATA 28,08,0d,20,ea,dd,7e,02 
300 DATA 18,04,7b,ll,01,00,cd,a9 
310 DATA cl,cd,69,e8,e5,4e,23,46 
320 DATA 23,5e,23,56,el,78,bl,cB 
330 DATA cd ,75,c4,e5,09,e3,cd,59 
340 DATA e2,21,8a,ac,cd,7a,a5,el 
350 DATA 18,e2,e5,cd,ba,a5,e3,cd 
360 DATA 98,a5,cd,58,f3,e3,cd , f6 
370 DATA a5,cd,9b,c3,el,7e,a7,c8 
380 DATA cd,98,a5,cd,9b,c3,18,f5 
390 DATA 3a,09,ac,d6,08,47,7e,a7 
400 DATA c8,cd,22,e2,23,I0,f7,c9 
410 DATA cd,24,a5,f5,c5,d5,e5,cd 
420 DATA ba,a5,cd,f6,a5,el,dl ,c 1 
430 DATA fl,c9,eb,lb,af,47,67,6f 
440 DATA 2f ,32,23,a5,13,1a,d6,30 
450 DATA 38,04,fe,0a,38,f6,la,13 
460 DATA a7,c8,4f,3a,23,a5,al,fe 
470 DATA 20,28,f3,79,fe,22,20,07 
480 DATA 3a,23,a5,2f,32,23,a5,3a 
490 DATA 23,a5,a7,79,c4,ab,ff,4f 
5 00 DATA ad,07,6f,09,18,d8,3e,20 
510 DATA cd,a3,c3,3e,5b,cd,a3,c? 
520 DATA cd,49 , ef,3e,5d,c3,a3,c3 


180 CALL (cASOOi I ON 
190 i 

200 DATA 21,09,a5,01,0d,a5,c3,dl 
210 DATA bc,00,00,00,00,18,a5,c3 
220 DATA 2a,a5,c3,2f,a5,c3,43,a5 
230 DATA 4f,ce,4f,46,c6,43,48,45 
240 DATA 43,cb,00,00,cf,02,ac,c3 
250 DATA a8,a5,21,27,aS,18,03,21 
260 DATA 24,a5,28,06,cd,00,b9,c3 
270 DATA 49,cb,11,5e,bd,01,03,00 
280 DATA ed,b0,c9,4f,cd,00,b9,0d 
290 DATA 28,08,0d,20,ea,dd,7e,02 
300 DATA 18,04,7b,11,01,00,cd,aà 
310 DATA cl ,cd,64,e8,e5,4e,23,46 
320 DATA 23,5e,23,56,el,78,bl,c8 
330 DATA cd,72,c4,e5,09,e3,cd,54 
340 DATA e2,21,8a,ac,cd,7a,a5,e1 
350 DATA 18,e2,e5,cd,ba,a5,e3,cd 
360 DATA 98,a5,cd,53,f3,e3,cd,f6 
370 DATA a5,cd,9B,c3,el,7e,a7,cB 
380 DATA cd,98,a5,cd,98,c3,18,f5 
390 DATA 3a,09,ac,46,08,47,7e,.a7 
400. DATA c8,cd,ld,e2,23,10,f7,c9 
410 DATA Cd,24,a5,f5,c5,d5,e5,cd 
420 DATA ba,a5,cd,f6,a5,el,dl,cl 
430 DATA f1 ,c9,eb,lb,af,47,67,6f 
440 DATA 2f , 32,23, a5,13 ,.la , d6,30 
450 DATA 38,04,fe,0a,38,f6,la,13 
460 DATA a7,c8,4f,3a,23,a5,al,fe 
470 DATA 20,28,f3,79,fe,22,20,07 
480 DATA 3a,23,a5,2f,32,23,a5,3a 
490 DATA 23,a5,a7,79,c4,ab,ff,4f 
500 DATA ad,07,6f,09,18,d8,3e,20 
510 DATA cd,a0,c3,3e,5b,cd,a0,c3 
520 DATA cd,44,ef,3e,5d,c3,a0,c3 
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utilitaire 


. ous vous félici¬ 
tons d'être de 
plus en plus 
nombreux à 
nous communi¬ 
quer des pro¬ 
grammes réalisés partielle¬ 
ment ou totalement en tangage 
machine. Les avantages de ce 
type de programmation ne sont 
plus à démontrer, ainsi que 
l'exceptionnelle qualité de la 
plupart des créations. Malheu¬ 
reusement, la saisie par le lec¬ 
teur d'une fouie considérable 
de codes machines n'est pas 
une partie de plaisir. AMSAISIE 
a donc été créé dans le but 
louable de vous faire profiter de 
quelques petites merveilles, en 
vous évitant un maximum de 
contraintes. 

Il doit être conservé précieuse¬ 
ment et utilisé chaque fois que 
vous découvrirez dans nos 
colonnes, un listing de codes 
machines au format approprié. 
Exemple : 


entrez ta somme de contrôle 
correspondant à la ligne sai¬ 
sie. En l’absence d'erreur, 
l'adresse suivante s'affiche, 
etc. Dans le cas contraire, un 
signal sonore retentit et le 
message 'ERREUR!' vous 
signale une bévue. Pas de 
panique, puisque l’adresse 
de la ligne litigieuse se réaf¬ 
fiche. Il suffit donc de retaper 
cette dernière. De plus, 
sachez qu’en cours de sai¬ 
sie, la touche DEL est 
opérationnelle. 

Maintenant, comment sauve¬ 
garder sur disquette (ou cas¬ 
sette) le langage machine 
aussi facilement entré en 
mémoire ? Tout simplement 
par la commande 'S', qui 
vous réclamera préalable¬ 
ment le nom du programme 
à sauver. Toutefois, deux 
solutions s'offrent à vous. 
— Vous êtes fou : et venez 
de saisir en une seule fois, la 
totalité ' des codes hexadé- 


Adresse : Codes 

Somme de 
contrôle 

8 FAO 00 00 00 00 00 00 00 00 

2F 


Mode d’emploi 


Après lancement, spécifiez 
en hexadécimal (sans le pré¬ 
fixe '&') l'adresse de début 
d'implantation du L.M. Celle- 
ci s'affiche, suivie de et 
d'un curseur clignotant. 
Entrez la série de huit codes, 
sans vous préoccuper des 
espaces et sans validez par 
RETURN (tout cela se réalise 
automatiquement). En fin de 
ligne et à l’affichage de 
cimaux (ouf I). Pas de pro¬ 
blème, appuyez sur ’S’ et 



votre programme se trouvera 
entièrement sauvegardé, 
après l'entrée du nom de 
fichier et l'appui sur 
< RETURN >. 

— Vous êtes raisonnable : et 
désirez morceler votre sai¬ 
sie. Au moment de stoper 
momentanément votre ou¬ 
vrage pour le poursuivre ulté¬ 
rieurement, appuyez sur 'S' 
et attribuez un numéro 
d'ordre à votre nom de 


N'USEZ PAS 

VOS DOIGTS 

Retrouvez tous les listings de ce 
numéro sur une disquette. Prix 
120 F (port compris). En raison 
de la longueur des listings, nous 
n’avons pas réalisé de cassette. 



BON DE COMMANDE Disquette "Spécial Listings" 

Offre limitée 

Je commande disquette(s) au prix de 190 F pièce. 

Chèque à adresser à : AM-MAG, 5/7, rue de l'Amiral Courbet, 941 60 SAINT-MANDÉ 

Nom : .prénom : .. 

Adresse :.. 
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fichier (exemple : PENDU 1). 
A la fin de la sauvegarde, 
l'adresse suivante s'affiche ; 
notez-ia. Cette adresse sera 
'l'adresse de début' qu’il 
conviendra de spécifier lors 
de la reprise de votre travail 
(PENDU2). Créez de la sorte, 
une suite de fichiers binaires 
(PE N DU 1. PENDU2, PEN- 
10 ' * AMSAISIE par 
20 MEMORY &2000:DIM 
ORDER 0:INK 0,0:INK 
PRINT" I pour 
rante": PR INT" 


DU3, etc.). Finalement, char¬ 
gez à la suite tous les fichiers 
(n'oubliez pas le MEMORY 
adéquat) et effectuez une 
sauvegarde totale et défini¬ 
tive, par la commande indi¬ 
quée dans le mode d'emploi 
du programme (exemple : 
S/l VE ’ PENDU. BIN ’ ',b.&8D- 
DO, & 10AC. Enfantin I 


Déni 5 JARRIL * 
0*(18):MODE 1 : B 
1 ,13:CLS:PRINT: 
changer l'adresse cou 
S pour sauver les don 


116603 
C 17671 3 


nees":PRINT" Tapez les caractères s 
ans espace ni return (tout se i 

ait automatiquement),":PRINT 
30 PRINT:INPUT" ADRESSE DE DEPART : 

", A!:D! = A!! IF Al="" THEN 30 
40 A = VAL ( "&"+AD 


141103 


112733 


50 I=0:AI=HEXI(A,4):PRINT:PRINT Al; 132003 
” : " ; : C = VAL ( "S<" + LEFTI < Al, 2) ) + VAL ( "&" 

+RIGHTI<A!,2)) 

60 Tî="": WH ILE T!="":CALL &BB8A:TI= 134543 
INKEYKCALL &BB8D : WEND:T! = UPPER!< T! 

) 

70 IF T!="I" THEN CLS:RUN 111323 

80 IF T!< )■"S" THEN 110 ELSE D = VAL ( " 133183 
!<" +DI) : IF D>0 AND A<0 THEN A=A+6553 
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90 PRINT:PRINT:INPUT" NOM : ",NI:I 133943 
F N!< > H " THEN SAVE NI,B,D,A-D+1 
100 GOTO 50 13843 

110 IF TIOCHRK127) THEN 130 ELSE 174053 


IF 1=0 THEN 60 ELSE I=I-i:PRINT CHR 
1(8);" ";CHRI< 8 ); : IF I/2< >R0UND(1/2 
) THEN PRINT CHRI( 8 ) ; " ";C H RI< 8 >; 

120 GOTO 60 13903 

130 IF TI< "0 11 OR TI>"F" THEN SOUND 126933 

7,150,20:GOTO 60 

140 IF T!<"A" AND Tl>"9" THEN SOUND 126323 
7,150,20:GOTO 60 

150 PRINT Tl;:IF 1=15 THEN PRINT":" 132783 
; ELSE IF I/2< >R0UND(1/2) THEN PRIN 

j ii il , 

160 01<I)=TI 15923 

170 1=1+1:IF I<18 THEN 60 113243 

180 FOR 1 = 0 TO 15 STEP 2: X = VAL ( "" + 144503 

OKI)+01(1 + 1) ) : POKE A , X : A = A +1 : C = C + X 
: NEX T : C = C AND $<FF 

190 IF C = VAL ( "Si" + 01 ( I ) + 01 ( I +1 ) ) THE 124263 
N 50 

200 SOUND 7,50,10:SOUND 7,500,10:PR 134933 
INT"ERREUR !";: GOTO 40 




( 6128 ) 


éroïne bien con¬ 
nue de la mytho¬ 
logie logicielle , 
ta sempiternelle 
chenille vorace 
et dangereusement extensi¬ 
ble, reste un des grands plai¬ 


sirs de notre enfance. Com¬ 
ment résister à l’efficacité 
d'un aussi court programme, 
agréable dispensateurd’une 
joie simple et salutaire. 

Benjamin Sentou 


10 MODE 1 : INK 0,0:BORDER 2:INK 1,6: 13247 3 
INK 2,21 : INK 3,11 

20 GOSUB 880 ' 110603 

30 DIM X(IOOO),Y(1000) 17253 

40 SYMBOL AFTER 127 114533 

50 SYMBOL 128,36,24,153,102,102,153 124543 

,24,36 

60 SYMBOL 129,28,2,17,33,33,17,2,28 121653 


70 SYMBOL 130,255,129,253,221,221,1 119633 
97,253,255 

80 SYMBOL 131,126,215,209,159,249,3 123093 
t 9 235 126 

90 * SYMBOL 132,40.,42,146,101 ,58,170, 124563 
84,56 

100 SYMBOL 133,0,8,14,0,6,4,4 19773 

110 SYMBOL 134,60,106,189,247,24,36 124443 
,36,24 

120 SYMBOL 135,8,20,66,8,0,24,24 117403 

130 SYMBOL 136,8,73,42,133,100,34,7 121513 
4,73 

140 PEN 1 :LOCATE 23,22 : PR I NT "VIES" 1 14353 
150 NM=70:NC=15:ND=9:TA=1:VIE=3 113393 

160 PEN 3: FOR 1=1 TO 35:L0CATE 1,1: 142963 
PRINT CHRI(130):LOCATE I,20:PRINT C 
HRt(130):NEXT 

170 FOR 1 = 1 TO 20:LOCATE 1 , I : PR INT 137603 
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CHR$ <130):LOCATE 35,1 : PR I NT CHR*<13 
0): NEXT 

180 FOR 1 = 1 TO NM:X = IN T(RND#33)+2:Y 
=rNT(RND*18)+2:LOCATE X,Y:F'EN 2 : PR T 
NT CHR$<133):LOCATE X,Y:PEN 3,1 : P RI 
NT CHR*(131):NEXT 

190 FOR I?1 TO ND:X=INT(RND*33)+2:Y 
= INT<RND*18) +2: LOCATE X , Y : F'EN 0,0 î P 
R î NT " ":LOCATE X,Y ï PEN 2:PRINT CHR 
■t < 135) : LOCATE X , Y ; PEN 1 ,1 : PR I NT CHR 
$(134):NEXT 

200 PEN 2,0: F0R 1 = 1 TO NC*1.2 
210 LOCATE INT <RND*33)+2,INT < RND* 18 
)+2:PR I NT C H R î(132) 

220 NEXT 

230 PEN 2:LOCATE 36,6:PRINT "CHOUX" 
240 LOCATE 10,23:PEN 3:PRINT "TABLE 
AU 11 ; TA 
250 CH=NC- 

260 X=320;Y=206;L=2:I=1 

270 X(1)=320: Y(1)=206 

280 PEN 2:LOCATE 28,22:F0R B=1 TO V 

IE: PR I NT CHR*(12B>; :NEXT: PR I NT " " 

290 M=1 

300 ENV 1,15,-1,1,5,1,1 :ENV 2,3,0,1 
,17,1,1:ENV 3,16,1,1,4,-1,1:ENV 4,8 
,0,1,3,-1,1,9,0,1:ENV 5,4,-1,5:ENV 
6,4,-1,1,12,0,1,4,1,1 
310 RESTORE 870:F0R M=1 TO TA-S:REA 
D FLAGI,FLA62,H,Q:NEXT:IF H=2 THEN 
S=S+8:GOTO 310 



C 847 3 
[2459] 


[3503 

[16813 

[1657] 

[ 769] 

[ 3 721 ] 
[1354] 
[43203 

[134] 

[5621] 


[4362.] 


320 IF FL A G1 = 1 THEN SOUND 17,0,H,0 [1971] 

330 TAG [3183 

340 M=1 : MOVE 320,206 : PR I NT " ";:MOV [3364] 
E 320,222:PR INT " " ; 

350 RESTORE 710 [733] 

360 '-PROGRAMME PRINCIPAL-[ 13431 


370 GRAPHICS PEN 1,0:GRAPHICS PAPER 

0 

380 EM=M:E = JOY(0): IF E = 6 OR E = 5 THE 

N 380 ELSE IF E=16 THEN 560 

390 IF E>0 AND E<9 THEN IF EOM THE 

N IF ABS(M-E)< >1 AND ABS <M-E)< >4 TH 

EN SOUND 4,20,20,15,1:M=E 

400 ON SQ < 1 ) G 0 S U B 670 

410 AX=X:AY=Y 

420 X=X+16*(M=4)-16 * ( M = 8 ) 

430 Y = Y +16* CM-2)-16* < M =1) 

440 T = TEST{X +8 ,Y): IF T = 3 THEN X = AX : 
Y = AY: M = EM: GOTO 3.30' 

450 IF T=2 THEN FOR K=50 TO 30 STEP 
-2:SOUND 4 , K, 1,15 : SOUND 4,K* 1.5,1, 


[13971 

[3516]' 

[4475] 


[574] 

[372] 

C 17163 
[13793 
[28783 

[60771 



TRANSFORMEZ 
VOTRE AMSTRAD 

EN SYNTHÉTISEUR 

OU EN STUDIO 
D’ENREGISTREMENT 




USICAL 
ENT! 


6 octaves - 3 voies simultanées - Métronome - 
Boîte à rythmes 72 séquences - Palette de 288 
accords - Choix de l'enveloppe, du volume et de la 
fréquence - Volume séparé pour les 3 canaux - 
Près de 2000 notes mémorisables - Enregistre¬ 
ment sur un seul canal ou les 3 à la fois en temps 
réel ou pas-à-pas - Séquenceur - Modification, ad¬ 
jonction ou suppression des notes, - Fenêtres et 
menus déroulants - Possibilité d'utiliser vos com¬ 
positions dans vos propres programmes - 100% 
langage machine. 





CPC 464 - 664 - 6128 qwerty-azerty i 

Veuillez m'envoyer MagicSound □cassette 
Nom ..Prénom ___ 

□ disquette 

TRES SIMPLE D'UTILISATION - LE PLUS PUISSANT DE SA CATÉGORIE 1 

Adresse ........ 

<n| 

expédition sous 48 h - Port gratuit - Commande accompagnée de votre 1 

Tél. 

ü 

règlement à: H. BITTNER - B.P7 - 47500 FUMEL- tél. 53.71.82.67 

Code Postal Ville 

<1 

cassette : 350,00 F disquette : 395,00 F 

à-joint mon règlement par:O chèque bancaire □ chèque postât □ mandat-lettre 


7 











































































Chenille 



15:NEXT:L=L+3:CH=CH-1:SC=SC+5:M0VE 


570,298 : PR I NT CH ; : GOTO 480 

460 IF T=1 THEN 560 [4943 

470 MOVE X <I -L +1),Y <I -L + l): PR I NT " C15913 

h . 

480 1 = 1 +1 : X <I)=XiY <I)=Y C11703 

490 MOVE AX,AY: PR INT CHR^ <129); [18193 

500 MOVE X , Y : PR I NT CHRI(128); C 18693 

510 IF CH=0 THEN 770 [7933 

520 GOTO 380 [4883 


530 READ L1,L2 ,R îIF L1=0 THEN RESTO C 1645 3 
RE : GOTO 530 

540. SOUND R,Ll,5,15,1,1:SOUND R + 2,L [40823 
2,3,15,1,1 :RETURN 

550 DATA 60,100,66,40,110,2,70,120, [18793 

2,45,130,2,100,140,2,0,0,0 

560 SOUND 129,0:SOUND 130,0:S0UND 1 [25053 

32,0 


570 FOR K = 26 TO 5 STEP -1 : INK 1, K : I [40183 
NK 0,K—5: SOUND 1,670-K*25,3,15:OUT 
256,0:NEXT: INK 1,6,3 

580 PEN 1,0 [5883 

590 FOR K=I TO I-L+l STEP -1 [10763 

600 MOVE X <K),Y < K)SPRINT CHR*<136>; [22743 
610 FOR J=15 TO 3 STEP -2:S0UND 17, [41663 
1000,1 ,J,0,0,10:SOUND 10,500,1,J,0, 

0,30:NEXT 

620 MOVE X(K),Y <K): PR INT " "5 [ 16943 

630 NEXT C3503 

640 TAGOFF:VIE = VIE-1:IF VIE>-1 THEN [36343 
INK 1,6:GOTO 260 

650 CLS:PEN 3,0sL0CATE 10,10:PRINT [33513 
"SCORE ; " ; : PEN 2-.PRINT SCpPEN 1 : PR 
INT " POINTS" 

660 CLEAR INPUT:CALL &BB06:RUN [12073 

670 READ NO:IF N0=1 THEN RESTORE 71 [22323 
0:GOTO 670 

680 IF N0=0 THEN N=0:N02=0 ELSE N=1 [39013 
: IF FLAG2=1 THEN N02=N0-2 ELSE N02= 

NO 

690 SOUND 17,N0,20,15#N,Q#N:S0UND 1 [35633 
0,N02,20,0,Q*N 

700 RETURN [5553 

710 DATA 478,0,478,0,478,0,478,0,47 [36223 
8,506,478,426,379,0,379,0,319,338,3 
19,239,190,0,190,0 

720 DATA 213,190,179,253,213,0,213, [27033 

0,319,338,319,253,213,0,213,0 

730 DATA 179,190,179,127,106,0,106, [24843 

0,113,106,95,127,119,0,119,0 

740 DATA 95,106,95,89,80,0,80,0,71, [22973 

80,89,95,106,0,106,0 

750 DATA 106,113,106,95,89,0,89,0,8 [30363 
0,89,95,106,119,0,119,0 

760 DATA 119,127,119,106,95,0,95,0, [63193 

89,95,106,119,127,0,0,0,142,0,0,0,1 

59,0,0,0,179,0,0,0,190,0,0,0,213,0, 

0 , 0,1 

770 RESTORE 860:TA = TA + 1:NM=NM + 10:NC C52973 
=NC+2:ND=ND+1:SOUND 130,0:S0UND 129 


,0 

780 TAGOFFiPEN 2,0 [14063 

790 FOR 1=2 TO 19 [6223 

800 FOR K=2 TO 18 STEP 16 [10663 

810 LOCATE K,I : PR I NT SPC <17) C11793 


820 READ NO:IF N0=0 THEN RESTORE 86 [14643 
0:GOTO 820 

830 SOUND 17,NO,15,15:SOUND 10,338, [46503 

15,15:SOUND 17,0,2,0: SOUND 10,0,2,0 

840 NEXT K,I [3763 

850 GOTO 180 [4013 

860 DATA 451,451,451,451,451,451,45 [71263 

1,451,426,426,426,426,426,426,426,4 

26,402,402,402,402,402,402,402,402, 

426,426,426,426,426,426,426,426,0 

870 DATA 0,1,0,1,1,0,30,2,0,1,0,3,1 [33573 

,0,20,1,0,1,0,4,1,0,10,5,0,1,0,6,0, 

1 0 5 2 2 2 2 

880 ' PR I NT : PR I NT " CE JEU NE PEUT SE-[88443 
JOUER QU'AVEC L'AIDE"SPRINT "DU JO 
YSTICK.SI VOUS ETES BLOQUE,APPUYEZ 
SUR LE BOUTON DU TIR (SUICIDE!)." 

890 PR INT :PRINT "VOUS POUVEZ MODIFI [41433 
ER TOUS LES PARAMETRES EN EDITANT L 
A LIGNE 150." 

900 LOCATE 13,12:PEN 1 ï PRINT "BONNE [42933 
CHANCE " :CALL &BB06:CLS:RETURN 
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AUTEURS 

Nous attendons 
nos réalisations ! 



Comment procéder? Vous êtes 
auteur d’un programme et vous 
souhaitez le voir être publié. Il vous 
suffit de nous envoyer vos créa¬ 
tions (originales) sur support cas¬ 
sette ou disquette, accompagnées 
d’un mode d’emploi du logiciel, 
d’une liste de variables et du bon, 
ci-dessous,dûment complété. Tou¬ 
tes les propositions seront 
examinées. 


Tous nos listings paras sont rémunérés ! 

-DEMANDE DE PARUTION- -- -r 


nom . PRÉNOM 

ADRESSE . 


TÉLÉPHONE . 

1 NOM DU PROGRAMME . 

I 

I Je certifie sur l'honneur , être l'auteur de ce programme et autorise 

1 les éditions AM-MAG à le publier (programme rétribué). Date et 
| signature obligatoires (signature des parents ou d'un tuteur légal 
pour les mineurs) : 



ME CONSERVER PRECIEUSEMENT CAR 







NUL MICRO N'EST A L'ABRI D'UNE PANNE 

COMMODORE 
ATARI 

AMSTRAD 
SINCLAIR 
OR/C 

LE N°I DE LA REPARATION 
ET DES PIECES DETACHEES 
DE MICRO-ORDINATEURS 
ET PERIPHERIQUES 
A VOTRE SERVICE 


31 rue de Maubeuge 75009 
ris. tel : 4 8* 74-38-30 




-PRIORITE SUR LES REPARATIONS PTr 

-REMISES SUR: REPARATIONS, EXTENSIONS ETC 
-UN DIAGNOSTIC GRATUIT DE VOTRE MICRO 
-etc ... 

* Offre valable jusqu'au 30 avril 1988 
( prix normal de la carte : 100F ) 


D JE DESIRE. 

Nom ____ 

Prénom _ 

Adresse _- 


.-•J!™- 1 -. 

BON DE COMMANDÉ 

_CARTEliPRIVILEGES Joindre 3 timbres à 2F20 par carte 


i Code Postal 

V--- 


_ Ville 


if) 


AM.HS 






































































imUTMRE 


Buffer imprimante 


f ace à la gabegie 
temporelle imputa¬ 
ble à l’impression, 
qui n’a pas piaffé 
d’impatience devant 
un clavier momentanément 
inopérant ? Reconnu d’uti¬ 
lité publique et agrée par le 
ministère de la santé, l’utili¬ 
taire de type BUFFER accroît 
l’efficacité de l’homme mo¬ 
derne, tout en lui évitant les 
conséquences fatales d’un 
état nerveux exacerbé. 

Ce programme, gérant le se¬ 
cond banc mémoire de 64 Ko 
du 6128 comme un buffer 
d’imprimante, permet la 
poursuite du travail sur ordi¬ 


nateur (programmer, charger 
ou sauver un fichier, etc.) 
pendant le « vidage » dudit 
buffer au rythme de l’impres¬ 
sion. Fonctionnant même 
sous TASWORD, il peut faire 
gagner un temps précieux 
dans le cas d’un courrier 
répétitif. Lors de l’impres¬ 
sion, il est possible, par la 
commande I BUFFER, n, de 
désactiver le buffer et de le 
réactiver au point où il a été 
interrompu. I BCLEAR 
efface le contenu du buffer. 
Les possesseurs de 464-664, 
disposent ici d’une version 
adaptée à leur matériel. 

Rémy Jaffer 


ante 

- : 1 = 

32K 2=48K 3=64K" 



260 

INPUT 

" ( 1 - 3 ) " ; a : IF ' a < 

1 OR a>3 T 

[21211 

HEN 

260 



270 

CALL 

43000,a-lsMEMORY 

?<A57F : NEW 

[16451 

280 

J 



[1741 

290 

DATA 

FEO1C0DD7E00FE03 

, 41B 

(12451 

300 

DATA 

D0F3F53CF5473E03 

,471 

[9271 

310 

DATA 

90C6C4321S30F501 

, 38A 

[5661 

320 

DATA 

C47FED4921A83111 

,384 

[15791 

330 

DATA 

0040013301EDB021 

,233 

[14851 


10 

20 

30 

40 

50 

60 

70 


'*■*****************#*******■*•**** 
'* Buff er - i mpr i roant e 32-48-64K * 
'** PAR JAFER REMY (0 1937 ** 

■ . -- 612 e 


' ** 

' ** 

■» !BCLEAR 
'* ! BUFFER,0 


Version 


Vide le buffer 
Desact. le buf 


# 

# 

** 

** 

# 

* 


[12231 

[12291 

(11491 

[7401 

[1041 

[12121 

[19881 



80 * 

* i BUFFER,1 : React. le buf. * 

[20831 





90 ' 

******************************* 

[12231 

340 

DATA 

E0301180A501C800,30F 

C10371 

100 

: 

[1741 

350 

DATA 

EDB021288D111841,310 

[14031 

110 

MODE 2:MEMORY &3FFF:L=29Q:M=&30 

[13931 

360 

DATA 

010C00C5E5EDB021,375 

[5781 

00 



370 

DATA 

2741 DIC1EDB0F132,4BA 

[20291 

120 

PRINT"Chargement des DATA en co 

[32041 

380 

DATA 

DCA532FAA53209A6,433 

[13141 

ur s" 

: PR INT 


390 

DATA 

32BD403217A63C32,28C 

[6081 

130 

S=0:READ A$:IF A$="*" THEN 180 

(19961 

400 

DATA 

2BA647F13229A680,38A 

C12751 

140 

FOR 1=1 T0 LEN(AI) STEP 2:D=VAL 

[30993 

410 

DATA 

32B540CD07A6F311,3A5 

[13251 

( " & " 

+MID*(A*,1,2)) 


420 

DATA 

AFA5219FA5010081,33B 

(11571 

150 

P0KE M,D:S=S+D:M=M+1:NEXT 

(3771 

430 

DATA 

CDE0BC2Î95A50180,445 

[11251 

160 

READ S $ i IF SOVALCW+S*) THEN 

[36921 

440 

DATA 

A5CDD1BCF1872199,531 

(8291 

E=l! 

PR INT CHRP(7)"ERREUR EN LIGNE : 


450 

DATA 

30856F7E32B23023,2D9 

[15771 

" ; L 



460 

DATA 

7E32B330219F307E,301 

[8291 

170 

L=L+5:GOTO 130 

[3311 

470 

DATA 

B7283423CD5ABB18,330 

'[12591 

180 

IF E-l THEN STOP 

[16501 

480 

DATA 

F63332343836340C,23D 

[5351 

190 

PRINT"Voulez-vous une sauvegard 

[47171 

490 

DATA 

4255464645522D49,230 

[5741 

e du 

code machine" 


500 

DATA 

4D5052494D414E54,268 

fl 1693 

200 

PRINT"(0/N)?"; 

[10003 

510 

DATA 

452030304B0D0A45,16C 

[18411 

210 

Af = UPPERI(INKEYt): IF A*=“" THEN 

[18101 

520 

DATA 

4E20464F4E435449,231 

(11371 

210 


530 

DATA 

4F4E0D0A0A0A0021,E9 

[17401 

220 

IF Ai="0" THEN SAVE"CODE",B,&30 

[16661 

540 

DATA 

EDB02240003EC932,338 

[11741 

00,7 

36:GOTO 240 


550 

DATA 

4200210030110130,D5 

[7271 

230 

IF At<>"N" THEN 210 

[8711 

560 

DATA 

01E80377FBC34000,361 

[8961 

240 

PRINT Af:PRINT 

[16123 

570 

DATA 

88A5C.3B4A5C3B9A5,56A 

[15521 

250 

PRINT"Capacite du buffer-imprim 

[56151 

580 

DATA 

4255464645D24243,2BF 

(15023 
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ADDITIF 

TECHNIQUE 


Chaque caractère destiné à 
l'imprimante est dirigé vers 
une “pending queue”, libé¬ 
rant ainsi l’ordinateur de l’at¬ 
tention du signal “busy” de 
l’imprimante. Cette file d’at¬ 
tente est vidée à raison de 
5x300 caractères par secon¬ 
de à la demande de l’impri¬ 
mante. 


Appels systèmes 

&BCD1 : installation des 

RSX 

&BB5A : sortie d'un carac¬ 
tère sur l’écran 
&BD28: 1 er adresse des vec¬ 
teurs imprimante 
&BCEO : installe un évène¬ 
ment au 1/300 e sec. 

&BCE6 : enlève un évène¬ 
ment au 11300 e sec. 


Périphériques 

&F5xx: port B du circuit 
d’entrée/sortie 8255 
&7FC0 : commutation du 
“banc” standard en &4000 
&7FC4 : banc 1 en &4000 
&7FC5 : banc 2 en &4000 
&7FC6 : banc 3 en &4000 
&7FC7: banc 4 en &4000 
Les organigrammes 1 et 2 fi¬ 
gurent l’algorithme général 
utilisé. 



Organigramme n° 1 Organigramme n° 2 


590 DATA 4C45410200000000,1 A4 C12413 

600 DATA 0033413341C4C400,270 11435] 

610 DATA 0000000000000000,0 1964] 

620 DATA OOOOOOOOOOOOOOCD,CD 1931] 

630 DATA D2A50040CDD2A52D,428 110753 

640 DATA 40CDD2A56040CDD2,4C-3 115163 

650 DATA A56540CDD2A57140,43F 114223 

660 DATA CDD2A5D740CDD2A5,59F 112493 

670 DATA EB40F3E3D557D5C5,5C7 18053 

680 DATA 5E235601C47FED49,351 120023 

690 DATA ED53E5A5CDE4A501,521 110483 

700 DATA C07FED49C1D17AD1,552 113043 

710 DATA E1FBC9C5067FED49,525 17903 

720 DATA 1A0EC4ED49C1C9C5,471 115523 

730 DATA 067FED491218F2F3,3CA 111403 

740 DATA 01C47FED49213341,30F 110893 

750 DATA 229BA52299A53EC4,3C4 112673 

760 DATA 329EA5329DA51134,32E 111873 

770 DATA 4101CC3E36FFEDB0,41E 112963 

780 DATA 06030EC4C5067FED,312 113773 

790 DATA 4921004011014001,FD 115603 

800 DATA FF3F36FFEDB0CÎ0C,4DD 13873 

810 DATA 10EA01C07FED49C9,439 14273 


820 DATA 0605C53A9DA54FED,388 116513 

830 DATA 5B99A5CDF3A5FEFF,5FB 121043 

840 DATA 2819CDF74030143E,2C7 17153 

850 DATA FFCDFFA579CDA740,59D 112653 

860 DATA 329DA5ED5399A5C1,4B3 110983 

870 DATA 10D8C9C1C9FE01C0,4FA 19083 

880 DATA DD7E00B728182127,29A 112473 

890 DATA 411128BD010C00ED,231 17283 

900 DATA B011AFA5219FA501,37B 113773 

910 DATA 0081CDE0BCC9211B,3EF 1 14263 

920 DATA 411128BD010C00ED,231 17283 

930 DATA B0219FA5CDE68CC9,54D 113883 

940 DATA B7COC307A6212741,370 -Il 1283 

950 DATA 1128BD010CÔ0EDB0,2A0 14663 

960 DATA C96F3A9EA54FED5B,44C 115353 

970 DATA 9BA5CDF3A5FEFFC2,664 17313 

980 DATA A5407D21C2404604,2CF 112853 

990 DATA 05230A23BE2320F3,253 110813 

1000 DATA 7EFEFF280ECDFFA5,522 118533 

1010 DATA 79CDA740329EA5ED,43F 17643 

1020 DATA 539BA537C9A7C94F,452 114353 

1030 DATA 13AF933E809A79C0,3E6 • 134603 

1040 DATA 1133413CFEC82804,2B3 111043 
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Buffer imprimante 


1050 DATA 110040C93EC41133,260 [5013 

1060 DATA 41C90AA05EA15CA2,3B1 11735] 

1070 DATA 7BA323A640AB7CAC,3FA 110283 

1080 DATA 7DAD7EAE5DAF5B3A,3F7 114773 

1090 DATA 9EA54FED5B98A5CD,4E7 120833 

1100 DATA F3A5FEFFC2E940A7,627 119613 

1110 DATA C937C96FED5B9BA5,4C0 115263 

1120 DATA 3A9EA54F7D189£CD,3CC 116273 

1130 DATA 104130023FC9C506,256 114253 

1140 DATA EFE67FED79F680ED,61D 111793 

1150 DATA 79E67FED79C137C9,505 111933 

1160 DATA C54F06F5ED781717,3A2 116663 

1170 DATA 7901090000000000,203 18563 

1180 DATA 0000000000000003,03 18593 

1190 DATA BEA5C303A503C8A5,5BE 110443 

1200 DATA C3CDA50000000000,235 113933 

1210 DATA * 11093 



10 'fc*****####*#****#*******#*#**** 

20 ' * Buffer-imp rimante 8-16-24 K * 
^30 '** PAR JAFER REMY (0 1987 ** 

40 '** Version 464-664 ** 

50 '** ** 

60 '* !BCLEAR : Vide le buffer * 
70 '* !BUFFER,0 : Desact. le buf. * 
80 '* !BUFFER, 1 î React. le buf. * 
90 '*#********#*************#****** 
100 : 

110 MODE 2.-MEM0RY &3FFF : L=290: M=&30 
00 

120 PRINT"Chargement des DATA en co 
ur s”: PR INT 

130 S = 0:READ Al:IF Al="*" THEN 180 
140 FOR 1=1 TO LEN(AI) STEP 2:D=VAL 
< "&"+MIDI(Al ,1,2) ) 

150 POKE M,D:S=S+D:M=M+1:NEXT 
160 READ SI:IF S<>VAL<”&"+SI) THEN 
E= 1 : PRINT CHRK 7) "ERREUR EN LIGNE : 

11 ; L 

170 L = L + 5: GOTO 130 

180 IF E=1 THEN STOP 

190 PRINT"Voulez-vous une sauvegard 

e du code machine'' 

200 PRINT" (0/N)?"; 

210 A! = UPPER!(INKÈYI): IF AI= " " THEN 
210 

220 IF AI = "0" THEN SAVE"CODE", B , ?<30 

00,552:GOTO 240 

230 IF AI< >"N” THEN 210 

240 PRINT AliPRINT 

250 PR INT " Capaci te du buf fer-impr i nt 

ante • : 1=8K 2=16K 3 = 24K'' 

260 INPUT "(1 -3)"; a : IF a<l OR a>3 T 
HEN 260 

270 CALL S<3000 , a-1 : MEMORY 42239-A*8 
192 : NEW 
280 : 


112233 

C14693 

C11493 

C 5533 

[104 3 

[12123 

[19883 

[20833 

[12233 

[1743 

[18933 


[32043 

[19963 
C30993 

[3773 

[36923 


[3313 

[16503 

[47173 

[10003 

[18103 


[23863 


[8713 

[16123 

[60103 

[21213 

[20543 

[1743 


290 

DATA 

FE01CODD7E00FE03 

41B 

300 

DATA 

D0F3F5473E039021 

3F1 

310 

DATA 

0025110020193D20 

CC 

320 

DATA 

FCE521B9301100A5 

3A1 

330 

DATA 

016E01EDB02128BD 

313 

340 

DATA 

1156A6010000C5E5 

2C4 

350 

DATA 

EDB02162A6D1C1ED 

545 

360 

DATA 

B0E1222DA5CD2FA5 

426 

370 

DATA 

114BA5211DA50100 

1E5 

380 

DATA 

81CDE0BC2115A501 

3C6 

390 

DATA 

00A5CDD1BCF18721 

498 

400 

DATA 

7230856F7E328B30 

301 

410 

DATA 

237E328C30217830 

258 

420 

DATA 

7EB7283423CD5ABB 

396 

430 

DATA 

13F6203831363234 

233 

440 

DATA 

0C4255464645522D 

1F3 

450 

DATA 

494D5052494D414E 

25D 

460 

DATA 

5445203030480DOA 

17B 

470 

DATA 

454E20464F4E4354 

22D 

480 

DATA 

494F4E0D0A0A0A00 

111 

490 

DATA 

21EDB02240003EC9 

327 

500 

DATA 

3242002100301101 

D7 

510 

DATA 

3001E80377FBC340 

391 

520 

DATA 

0008A5C36FA5C3A5 

3EC 

530 

DATA 

A54255464645D242 

321 

540 

DATA 

434C4541D2000000 

1E7 

550 

DATA 

OOOOB830B8300000 

1 DO 

560 

DATA 

0000000000000000 

0 

570 

DATA 

0000000000002DA5 

D2 

580 

DATA 

F32A2DA5221BA522 

2F3 

590 

DATA 

19 A 51100A5EBA7ED 

3F3 

600 

DATA 

524D440B6B621336 

204 

610 

DATA 

FFEDB0C9F30605C5 

528 

620 

DATA 

ED5B19A51AFEFF28 

445 

630 

DATA 

14CD32A6300F3EFF 

335 

640 

DATA 

12CDF3A5ED5319A5 

475 

650 

DATA 

C110E4FBC9C1FBC9 

5FE 

660 

DATA 

FEO1C0DD7E00B728 

3F9 

670 

DATA 

1AF32162A61128BD 

32C 

680 

DATA 

01OCOOEDBO114BA5 

2AB 

690 

DATA 

211DA5010081CDEO 

312 

700 

DATA 

BCFBC92156A61128 

3D6 

710 

DATA 

BD010COOEDB0211D 

2A5 

720 

DATA 

A5CDE6BCFBC9B7C0 

64F 

730 

DATA 

C32FA5E5D5C52162 

499 

740 

DATA 

A61128BD010C00ED 

296 

750 

DATA 

B0C1D1E1C9F3E56F 

633 

760 

DATA 

E5D5C5ED5B1BA51A 

4A1 

770 

DATA 

FEFFC2EBA57D2100 

4ED 

780 

DATA 

A6460405280623BE 

204 

790 

DATA 

2320F87E12CDF3A5 

430 

800 

DATA 

ED531BA537C1D1 El 

4AA 

810 

DATA 

7DE1FBC9A7C1D1E1 

63C 

820 

DATA 

7DE 1FBC9133E0093 

406 

830 

DATA 

3EA59AC0ED5B2DA5 

457 

840 

DATA 

C90AA05EA15CA27B 

3EB 

850 

DATA 

A323A640AB7CAC7D 

3F C 

860 

DATA 

AD7EAE5DAF5BF3E5 

518 

870 

DATA 

6FE5D5C5ED5B1BA5 

4F6 

880 

DATA 

1AFEFF20BF18C5F3 

4C6 

890 

DATA 

E56FE5D5C5ED5B1B 

536 

900 

DATA 

A518A9CD4BA63002 

356 

910 

DATA 

3FC9C506EFE67FED 

514 

920 

DATA 

79F680ED79E67FED 

5A7 

930 

DATA 

79C137C9C54F06F5 

449 

940 

DATA 

ED78171779C1C900 

396 

950 

DATA 

0000000000000000 

0 

960 

DATA 

OOOOOOC3AAA5C3BC 

391 

970 

DATA 

A5C315A6C326A600 

3B2 

980 

DATA 

* 



[12453 
[9713 
[12263 
[8203 
[15073 
[10203 
[14893 
[17523 
C 800 3 
[8863 
[11103 
[13223 
[6173 
[11193 
[5663 
[12083 
[8373 
[14963 
[9403 
[11283 
[11903 
[11463 
[704 3 
[14463 
[12403 
[11183 
[10103 
[9643 
[12073 
[15713 
C12843 
[12013 
[13353 
[8993 
[7133 
[7363 
[15483 
[7013 
[10733 
[13163 
[12713 
[13263 
[6593 
[8993 
Cl 1673 
[1993 
[9803 
[10583 
[920 3 
[7543 
[10293 
[11513 
[10043 
[12853 
[14933 
[19923 
[11873 
.[16513 
[11233 
[16353 
[.16743 
[11383 
[15413 
[13873 
[6153 
[6383 
[9643 
[13483 
[9503 
[1093 
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10x3' 59 F 

30x3' 99 F 

45x3.50 99 F 
80x3.50'"119 f 
48x3" 119 F 

50x5.25' 119 F 
100x5.25' 149 F 



JSY48 


119 ‘ 


JOYSTICKS 


Les meilleurs joysticks au monde 

Doubleur de Joystick. 

... 69 F 

Phasor oné (U.S. Gold). 

. 1t5F 

Joystick Cheetah 125* . 

... 89 F 

Joystick Cheetah Mach 1- 

135F 

Pro 5000. 

. 130 F 

Ouickshot turbo 1/. 

. 129F 

Speed king. 

. 115F 

Switchjoy SJ.1 . 

. 85 F 


. 95 F 

Wico 3 WAY. 



. 160 F 

Cheetah PC. 

. 199 F 

Carte PC. 

. 225 F 

Gratuit t un doubleur de Joystick, pour 

l'achat de 2 phasor one ou 2 Cheetah 

mach 1 



RUBANS POUR IMPRIMANTES 


avec serrure + clé 
sauf Proto 

PERIPHERIQUES 

Crayon Optique Dart....,. 

345 F 

Digitaliser Dart DMP2000 

750 F 

Interf. RS 232 MERCI 

890 F 

Interf Série/PAR.PCW 

890 F 

Interf, RS232 CPC 

590 F 

Adapt. Péritel MP-2F-CPC 

450 F 

Souris AMX CPC. 

690 F 

Souris Cameron CPC (D). 

649 F 

Synlbét Musical TMPI 

980 F 

Synthèt Vocal TMPI 

545 F 

«Ironies 


Ext. Mémoire 256K/464 . 

785 F 

Ext. Mémoire 256K/6128 ... 

785 F 

Ext. Mémoire 512K/PCW .... 

545 F 

Ext. Mémoire 64K/464 . 

475 F 

Silicon Disc 256K/464 . 

785 F 

Silicon Disc 256K/6128. 

785 F 


Ruban CITIZEN 1200. 

.... 79 F 

Ruban DMP 2000 . 

... 69 F 

Ruban DMP 3000 . 

... 69 F 

Ruban DMP1 . 

... 69 F 

Ruban PCW 8256/8512 ... 

.... 69 F 


ACCESSOIRES 


Protégez vos yeux 

Copy Hôlder. 189 F 

Eliquet. 89x36 Par 500 . 69 F 

Filtre Ecran 12" Coul. 179 F 

Filtre Ecran 12" Monoc. 169 F 

Support Imprimante 80 Col.. 149 F 

Support Moniteur 12-14". 139 F 

Mouse Mat (tapis) .75 F 

N 


HOUSSES POUR AMSTRAD 


Protégez votre ordinateur 

Housse CPC 464 Coul. 

109 F 

Housse CPC 464 Monoch... 

. 99F 

Housse CPC 6128 Coul. 

109 F 

Housse CPC 6128 Monoch. 

99 F 

Housse DISC FD1 . 

.. 65 F 

Housse IMP. DMP 2000 . 

.. 79 F 

Housse IMP. DMP 3000 . 

. 79 F 

Housse PC 1512 Coul. 

119F 

Housse PC 1512 Mono. 

105 F 

Housse PCW 8256/8512 ... 

129 F 

Housse Souris. 

59 F 



CABLES D'EXTENSION 


Ne restez plus collé 


à votre ordinateur ! 


Centr. Amstr./lmprim. Azerty. 

149 F 

Câble Centr. Ams/lmpr. 

149 F 

Câble Ecran/Clavier. 

149 F 

Câble Extens. Joystick. 

.. 65 F 

Câble Extens. Port. 

170 F 

Câble FDl. 

139 F 

Câble Magnéto Cassette. 

55 F 



DISQUETTES 3 pour AMSTRAD 

F 90 


' à l'unité - Par 100 


Rèf. 

10 

20 

50 

100 

3"CF2 

189 F 

35 a F 

845 F 

1590F 

3’ 1/2 DFDD 

125F 

240 F 

550 F 

995 F 

5" 1/4 SFDD 

75 F 

140 F 

325 F 

600 F 

5" 1/4 DFDD 

80 F 

150 F 

350 F 

680 F 


* Disquettes certifiées 100% garantie 5 ans 
Livrées dans boîtes + enveloppes + étiquettes 


BOITIER PLASTIQUE type AMSOFT.30 F Les dix 


Quand les prix 

sont si 


UTILITAIRES 


CPC 

C D 

AGENDA. 

150/165 

ANALYSE FINANCIERE. 

. 240 

AUTOFORM ASSEMBLEUR 

. 295 

BUDGET (HfT 4). 

155/190 

CAO... 

320/399 

CALCUMAT . 

.390 

CARNET D ADRESSES. 

150/165 

0 BASE 2. 

. 760 

DATAMAT. 

.425 

DISC010GY. 

. 350 

DR DRAW . 

.625 

DR GRAPH.. 

.625 

GESTION DE FICHES. 

180/195 

GESTION DOCUMENTAIRE.... 

160/175 

GESTION DOMESTIQUE. 

180/195 

GESTION FAMILIALE. 

160/290 

MASTERCALC. 

.350 

MASTERFILE. 

. 370 

MULT1FACË 2. 

. 520 

MULT1PLAN. 

.478 

POCKET WORDSTAR. 

.825 

SEMABANK.. 

380 

semastats. 

380 

SEMFICH.. 

360 

TASSIGN.. 

.320 

TASPRINT. 

.275 

TASWORD. 

380 

TEXTOMAT. 

. 380 

TURBO TUTOR. 

.325 

PCW 


AUENOR . 

. 960 

ANALYSE FINANCIERE. 

. 240 

AUTOFROM ASSEMBLEUR... 

. 295 

D BASE 2 . 

... 760 

DATAMAT. 

.395 

DR. DRAW. 

.625 

OR. GRAPH. 

.625 

GESTION 00MEST10UE. 

... 240 

GESTION FICHIERS. 

. 250 

MASTERFILE 8000. 

.530 

MUITIPLAN. 

... 470 

POCKET BASE. 

. 720 

POCKET WORDSTAR. 

.825 

QUICK MAILING. 

.490 

TAS-SIGN 8000. 

350 

TASPRINT 8000. 

.275 

TASWORD*'MAIL MERGE*. 

. 410 

WORDSTAR. 

. 890 

PC 


FLIGHT SIMULATOR.. 

.399 

MULT1PLAN JUNIOR 

. 559 

SIDEWCK. 

.350 

TAS-SIGN PC. 

.370 

TASPRINT PC.. 

. 370 

TASWORD-’MAIL MERGE'. 

.420 

EDUCATIFS CPC 


COURS DE BASIC. 

.225 

DECOUVERTE DE U VIE. 

.179 

ECRIRE SS FAUTES V. J . 

.189 

ECRIRE SS FAUTES V.2. 

.189 

ENIGME A MADRID. 


ENIGME A MUNICH. 

.225 

ENIGME A OXFORD. 

.225 

EQUATIONS. 

.195 

FRANCAIS-CM. 

.195 

GEOMETRIE. 

.195 

MATHS 2E CYCLE 1 . 

.245 

MATHS 2E CYCLE 2 . 

195 

MATHS 3E. 

. 195 

MATHS 5E-4E. 

.195 

MATHS 6E.. 

J 95 

MATHS-CM. 

.195 



OBJECTIF FRANCE 4-3E. 

179 

OBJECTIF MONDE 6E. 

179 

VISA PR HYDE PARK 6E . 

.195 

LIBRAIRIE 


102 PROGRAMMES CPC . 

. 120 

AMSTRAD EN FAMILLE . 

. 120 

BIEN DEBUTER AVEC CPC. 

. 99 

CLEFS AMSTRAD PCW. . 

. 215 

GRAND LIVRE DU BASIC 612! 

. 149 

GRAND LIVRE DU PCW. 

. 179 

— 



les 


bas, 

souris dansent ! 

AMSTRAD TOP HITS 


720 DEGRES. 

.. 92/142 

LA GUERRE DES ETOILES. 

.. 96/146 

ACE 2. 

.. 92/142 

LA MARQUE JAUNE. 

246/246 

ADV T RlGHTER 

87/136 

LA MASCOTTE. 


ALBUM DIGITAL ... 

116/162 

lazertag. 

.. 92/142 

ALBUM EPYX . 

116/186 

LE MAfTRE DES AMES. 

.186 

ALBUM HEWSON 

.. 92/142 

LES DIEUX DE LA MER. 

142/192 

ALBUM LORJCIEL.. 

.. 92/142 

LES MAITRES DE L UNIVERS 

.. 92/142 


162/192 

LES RIPOUX. 

122/192 

ALTERN WORLD GAMES. 

.. 92/142 

LORICIEL Hiï 6. 

126/176 

AMSTRAO GOLD HrfS 2... 

. 92/142 

MACH 3 

126/176 

ANNALES DE ROME 

176/232 

MAD BALLS 

.. 86/142 

badcat. 

.. 92/142 

MALETTE JEUX FIL . 

192 242 

BARBARlAh. 

.. 92/132 

MASK 2.-... 

.. 92/142 

BASIL THE DETECTIVE 

.. 92/142 

MATCH DAY 2. 

87-142 

BASKET MASTER . 

87/142 

MEURTRES EN SERIES. 

256’296 

BEST OF ELITE 2. 

.. 92/142 

MEWILO. 

. 192 

BILLY 2. 

132/192 

NAVY MOVES.. 

.87/142 

BIVOUAC. 

122/192 

OCEAN STAR HfT 1. 

. 92/142 

BLOOO VALLEY . 

92/142 

OCEAN STAR HfT 2 . . 

118/162 

BLUEBERRY 

.192 

OUTRUN. 

92/142 

BOB WlNNER. 

126/166 

OXPHAR.. 

....202 

BOBSLEIGH .. 

.. 92/142 

PACK FIL 2. 

136/186 

BRAVESTAR. 

92/142 

PEPE BEQUILLE. 

142/192 

BUBBLE BOBBLE. 

.. 92/142 

PEUR SUR AMYTWILLE.... 

126/166 

BUGGY BOY . 

.. 92/142 

PHANTOM CLUB .. 

.. 87/142 

CALIFORNIA GAMES 

.. 92/142 

PHANTŸS. 

.. 87/142 

CAPTAIN AMERICA 

.. 92/142 

PIRATES. 

.. 92/142 

CARRE D'AS. .. . 

.192 

PIATOON. 

.. 87/142 

CATCH 23 . 

.. 87/142 

PREDATOR . 

87 142 

CHAMPTONSHIP SPRINT.. 

... 92/142 

PROFESSION DETECTIVE. 

.226 

CHOSE OEGROTEMB . 

132/172 

PROHIBITION. 

117/192 

CLASH. 

.192 

PSYCHOSOLDIER..- 

86.142 

CLEVER ANO SMART 

132/176 

QUAD . 

142/176 

COMBAT SCHOOL. 

.. 87/142 

QUIN. 

.242 

CONFUCT1. 

132/176 

RAMPART. 

.. 92/142 

CRASH GARET. 

.192 

RASTAN. . 

.87/142 

CRAZY CARS.-. 

126/156 

RENEGAOE. 

.. 87/142 

OEATH OR GLORY. 

...96/142 

ROAD RUNNER . 

. 92/142 

ELITE 6 PACK N*2. 

... 92/145 

ROLLING THUNDER. 

.. 92/142 

EXiï . 

142/192 

RYGAR. . 

.92 142 

F15 STRIKE EAGLE. .. 

... 96/146 

SANTA FE.. 

136'172 

FER ET FLAMME 

.246 

SEFEMBER.. 

92 142 

FIRE TRAP . 

142/142 

SHACKLED. 

92/142 

FLYING SHARK.. 

... 96/142 

SIDE ARMS. 

.. 92/142 

GABRIEL. . 

136/172 

SILENT SERVICE.. 

.. 85/136 

GAME SET MATCH. 

126/176 

SKAAL. 

142/192 

GAUNTLET 2 . 

... 92/142 

SORCERER LORD. 

176/232 

GRYZOR . 

... 87/142 

STREETSPORT BASKET. 

.. 92/142 

GUILD OF THIEVES. 

.192 

STRYFE 2 . 

132/172 

GUNSHIP. 

192/242 

SUPER HANG ON. 

.. 92/142 

GUNSMOKE. 

... 92/142 

SUPER SKI. 

142/192 

HANS D'ISLANDE... 

126/196 

THE LAST NINJA. 

.. 92/142 

HfT PACK 1 . 

82/142 

THE SENTINEL. 

.. 96/146 

HfT PACK 2 . 

... 92/142 

THEY SOLO A MILLION 3 . 


HURLEMENTS. 

132/172 

THUNDERCATS. 

.. 87/142 

IMAGINE ARCADE HfTS... 

116/162 

TOUR DE FORCE. 

.. 92/142 

IMPOSSIBLE MISSION 2 

... 92/142 

TRANTOR. 

.. 92/142 

INDIA NA JONES. 

92/142 

TRESORS DE US GOLD:. 

116/192 

INF1LTRAT0R 2 . 

... 92/142 

V 2 . 

.172 

INTERNATIONAL KARATE 2 

... 92/142 

VJCTORY ROAD.. 

.. 86/142 

IZNOGOUD. 

192/242 

WARLOCK.. 

.92 

KONAMIS GREATEST HiïS..., 


WARLOCK. 


L'ANGE DE CRISTAL. 

142/202 

WESTERN GAMES. 

132/176 

L'ANNEAU DEZENGARA. 

. 142/186 

WIZARD WARZ. 

.. 92/142 

L'OEll DF SET. 

. 142/186 

WORl D LEÀD.TOURN. 

.. 92/142 



SUPER BUDGET K7 49 F 


ARKANOID 

EMPIRE 

MARIO BROTHERS 

SPY VS SPY 3 

AVENGER 

FIRELORD 

MGT 

TAI PAN 

BALLBLAZER 

FREDDY HARDEST 

MINDSHADOW 

TEMPEST 

BLADE RUNNER 

FUTURE KNIGHT 

MON7Y ON THE RUN 

THAÏ BOXING 

BREAKTHRU 

GALVAN 

MOVIE 

THANTOS 

BRUCE LEE 

GAME OVER 

NEMESIS 

THUNDERBIRDS 

CAULDREN 2 

HUACK 

NEMESIS THE WARLOCK 

TOP GUN 

CHIMERA 

HIVE 

NEXUS 

TRAILBLAZER 

CHOLO 

HOBBiï 

PRODIGY 

WARLOCK 

DANDY 

JAfLBREAK 

RANARAMA 

W1ZBALL 

DONKEY KONG 

JET SET WILLY 

ROCCO 

XARO 

DRAGONSLAIR 

KRAKOUT 

SIGMA 7 

YIE AR KUNG FU 

EIDOLON 

KWAH 

SFNVSSPT 

YIE AR KUNG FU 


BON DE COMMANDE EXPRESS 


ARTICLE (garantie échange immédiat) 

Ole 

PRIX 

MONTANT 













DOM-TOM 

+ 50 F 

ETRANGER 

TOTAL d« COMMANDES 


FRAIS DE PORT- 

, ,2 5 

TOTAL A REGLER 

-1- 1 1- 


NOUVEAU : Boutique à Nice “HOLLYWOOD STARS” 8, Bd Joseph Garnier 

à retourner à JESSICO IMPEX - BP 693 - 06012 NICE CEDEX 

□ Je joins un chèque ou mandat-lettre 
r£ ort SD Je Dave par carte bleu et ie complète 

logiciel 
jeux 
15F 

n° 


□ Je paye par carte bleu et je complète les 2 lignes ci-dessous 

carre Dteue , .... 


GAGNEZ DU TEMPS /Commandez par téléphone: 93 51 61 30 

Précisez pour quel ordinateur : 


date d'expiration .. 

NOM . PRENOM 

1° ET RUE ... 

VILLE . CODE POSTAL l_ 

Signature obligatoire 


Disc □ K7 □ 


Budget suivant stock disponible 


AM.HS 5 REPRO-JM - NICE 



















































































































































































































REPERAGE D'ERREURS 
DANS UN 
PROGRAMME 



Cet article s’adresse à ceux d’entre vous qui pas¬ 
sent des heures à taper sur leur CPC un pro¬ 
gramme qu’ils trouvent dans une revue comme 
celle que vous avez entre les mains, ou qu'ils 
ont conçu eux-mêmes, pour obtenir un superbe 
plantage du système ou un mauvais fonctionne¬ 
ment du programme à la suite d’une faute de 
frappe ou d’une réelle erreur dans le pro¬ 
gramme d’origine. 





Le problème de 
compatibilité entre 
les machines 

La première chose à regarder 
lorsque vous tapez un pro¬ 
gramme provenant d’une revue 
est de vérifier que celui-ci tourne 
bien sur votre ordinateur. Il est 
en effet inutile de retaper tel quel 
sur un CPC un programme 
prévu pour une APPLE ! Il est 
obligatoire de le trancrire car le 


Basic, malgré le fait qu’il soit le 
langage utilisé par la plupart des 
micro-ordinateurs familiaux du 
marché, est différent d’une 
machine à l’autre. 

Ce problème se pose également 
entre les trois modèles CPC 
lorsqu’il s’agit d’un programme 
utilisant certaines routines se 
trouvant en ROM ou encore cer¬ 
taines variables systèmes. Véri¬ 
fiez dans ce cas que le pro¬ 
gramme qui vous intéresse 


tourne bien sur votre modèle de 
CPC (si bien sûr, vous en pos¬ 
sédez un !). 

Les programmes utilisant 
le langage machine 

Certains programmes de jeux ou 
utilitaires possèdent une partie 
en langue machine. Pour que 
vous puissiez les retaper sans 
avoir à utiliser d’assembleur, les 
codes opérations (ces codes sont 
les seules instructions comprises 
par le microprocesseur, cerveau 
d’un micro-ordinateur, qui cor¬ 
respondent à des fonctions élé¬ 
mentaires tels que chargement 
ou sauvegarde d’un registre) 
sont mis en DATA et le plus 
souvent codés en hexadécimal. 

Lorsque vous avez fini de taper 
le programme, la première chose 
à faire est de le SAUVEGAR¬ 
DER. C’est impératif ! Si une 
des valeurs est erronée, lors d’un 
RUN, vous risqueriez de planter 
le programme et il vous faudrait 
alors retaper entièrement le pro¬ 
gramme car vous ne pourriez pas 
le récupérer. 


Après cette sauvegarde, vous 
pouvez le lancer. S’il plante, ce 
n’est pas grave puisque vous 
l’avez sur cassette ou sur dis¬ 
quette. Vous n’avez donc pas à 
le retaper (avouez qu’il est 
rageant de taper un programme 
pendant deux heures pour 
rien !). Rechargez-le alors en 
mémoire et vérifiez-le lignes par 
lignes, instructions par instruc¬ 
tions, et même caractère par 
caractère. Le langage machine 
est impitoyable dans le cas d’une 
erreur. Le seul message qu’il ren¬ 
voie est le plantage pur et sim¬ 
ple du micro-ordinateur. Soyez 
donc très prudent. 

Si, pour vos programmes, vous 
employez le système des DATA 
pour rentrer du langage machine 
et surtout, si vous désirez nous 
envoyer un programme utilisant 
ce procédé, forcez-vous à inclure 
dans le programme une routine 
d’auto-test qui, justement, véri¬ 
fiera que les valeurs en DATA 
sont correctes. Voici une solu¬ 
tion parmi tant d’autres. 11 suf¬ 
fit d’utiliser une variable supplé¬ 
mentaire qui contiendra au fur 
et à mesure de l’implantation en 
mémoire des valeurs lues en 
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OFFREZ LA QUALITE A VOTRE AMSTRAD 


CT 


MPI 


ARA 


LE NUMERO I DU SON INFORMATIQUE 
TECHNIQUE-MUSIQUE 
& PAROLE INFORMATIQUE 


5 yrtïHETISEUR VOLRL 

mm, m <# m m 




'Ci'KKMON< îfSiANO 
J j Î6 î! 


Rendez votre ordinateur plus 
bavard qu’un politicien en 
campagne ! 

Pour Amstrad CPC, 

Thomson et Oric. 

Livré avec logiciel 
d’exploitation 
et notice. 

O synthétiseur vocal . 550 F 



Attendu depuis longtemps 
ce synthétiseur musical 
va ravir tous 
les mélomanes. 

Pour Amstrad CPC. 

Livré avec logiciel 
d'exploitation 
et notice. 

O synthétiseur musical . 980 F 



'DIGITALISATION en continu (3 images/sec.) ou coup par coup. 
'LOGICIEL DE DESSIN: 

- Insertion d’images. 

- Modification des couleurs à partir du PIXEL jusqu'à l’écran total. 

- Fenêtrage paramétrable. 

- ZOOM échelle 4 - HARDCOPY échelle 1. 

- Définition de TRAMES au choix de l'utilisateur. 

•LOGICIEL DE HARDCOPY EN TAILLE REDUITE. 

(Image ci-dessus : DMP 2000). 

•LOGICIEL d'exemple d'intégration d'image sous BASIC. 

•Livré avec cordon PERITEL. 

Version PC disponible 

□ digitaliseur ARA pour CPC . 990F 


DIGITALISEUR D'IMAGES POUR 


CPC 


Produit Français, conçu et réalisé par 
la SARL JAGÔT & LEON et M.P. BORG. 
Fonctionne sur TV, magnétoscope ou caméra SECAJVI. 
Logiciel écrit en Assembleur. 


Grâce à cette interface le moniteur de votre Amstrad CPC vous servira aussi de TV ! 


Branchez, choisissez TV ou ordinateur et c’est tout ! 



CARACTERISTIQUES : 

- PAL/SECAM 

-16 chaînes pré-réglables 

- UHF-VHF 

- haut-parleur intégré 

- sortie casque 


- prise péritel pour 
décodeur Canal “+” 

- réglage son, luminosité, 

- livré avec câble raccordement 
vidéo 


□ interface TV . 1190F 

□ interface TV avec télécommande . 1690F 



BOUTIQUE MICRO-INFORMATIQUE 

22, rue de Montreuil 94300 VINCENNES - Tél.: (t) 43.28.22.06 

OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 13 II et de 15 h à 19 h. LE SAMEDI de 10 h 30 à 19 h 



COMMENT COMMANDER : Cocher le(s) article(s) désiré(s) ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F. 4Q F de 500 à 1000 F. 60 F pour achat supérieur à 1000 F). 


JE POSSEDE UN ORDINATEUR DE MARQUE : 

NOM:____ 

_TÉL. :_ 


TYPE 


.ADRESSE: 


CODE POSTAL:. 


VILLE :_ 


H) 


Mode de paiement : □ chèque / □ mandat / □ contre-remboursement (prévoir 20 F de frais) - envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 






















































DATA, la somme de celles-ci. 
En supposant que la routine de 
decture des DATA se trouve en 
début de programme, voici un 
exemple que nous vous conseil¬ 
lons car elle évite le plantage 
fatal en cas d’erreur de recopie 
du programme : 

10 somdat= O’ Initialisation de 
la variable test 

20 FOR ad = adresse de début 
TO adresse de fin 
30 READ da : POKE 
ad,da :somdat = somdat + da 

40 NEXT ad 

50 IF somdat < > X THEN 
?“ERREUR DANS LES 
DATA”: END 

60 suite du programme 
X est la valeur théorique qui est 
égaie à la somme de toutes les 
valeurs contenues dans les lignes 
de DATA. Si le message 
“ERREUR DANS LES 
DATAS” s’affiche, c’est que 
vous avez fait une faute de s ai- ■ 
sie, ou que la valeur de X est 
fausse. De toutes façons, vérifiez 
vos DATA. 

51 c’est un message d’erreur du 
BASIC qui s’affiche, c’est 
qu’une donnée est incorrecte, ou 
qu’il manque une virgule... Pour 
connaître la DATA défaillante, 
faites simplemen : PRINT ad - 
adresse de début. 

Le nombre qui sera alors affiché 
sera le numéro de la DATA qui 
est incorrecte. Il ne vous reste 
plus qu’à les compter jusqu’à ce 
que vous pointiez sur celle qu’il 
vous faut modifier. Cette der¬ 
nière astuce est valable pour tous 
les programmes BASIC conte¬ 
nant des DATA lorque l’écriture 
de ces dernières provoque un 
message d’erreur lors d’un 
RUN. 

Les messages d’erreurs 
du basic 

Ces messages sont écrits en 
anglais du fait de la nationalité 
de l’AMSTRAD et de celle du 
BASIC. Malgré tout, le manuel 
du CPC vous dit succintement ce 
qu’ils signifient. Reportez-vous 
y de tempms en temps si vous ne 
comprenez pas votre message 
d’erreur, vous trouverez peut- 
être quelle en est la cause. 
L’erreur la plus sournoise est le 
MEMORY FULL, qui signifie 
mémoire pleine. Elle peut surve¬ 
nir lors d’un SYMBOL, AFTER 
prenant trop de place en 
mémoire, ou encore lors d’un 
MEMORY. Elle peut aussi sur¬ 
venir lors d’une instruction I 


comme DIM si la réservation de 
mémoires variables demandée 
est trop importante. Vous pou¬ 
vez toujours connaître la taille 
mémoire disponible en tapant 
PRINT FRE(O). Le résultat 
obtenu sera en octets. Pour con¬ 
naître la valeur en Ko, il vous 
suffit de diviser ce nombre par 
1 024 (= 2 10 ). Ce message 
d’erreur peut avoir encore une 
origine beaucoup plus sournoise. 
Si vous- avez trop de boucles 
imbriquées, ou de GOSUB ou de 
WHILE, vous obtiendrez un 
MEMORY FULL. Vérifiez 
donc que vous n’avez pas de sor¬ 
tie de boucles ou de sous- 
programmes, anormaux. Dans 
ce cas, comme dans toutes les 
recherches d’erreurs, nous vous 
conseillons d’utiliser l’instruc¬ 
tion TRON qui vous affichera, 
au fur et à mesure, les numéros 
des lignes parcourues par le pro¬ 
gramme. Vous pourrez donc 
ainsi vérifier que tout se passe 
bien comme prévu au niveau des 
lignes. 

Correction d’une erreur 
de syntaxe 

Ce type d’erreur est signalé, à 
l’exécution du programme, par 
le message SYNTAX ERROS 
IN LINE XXXX. C’est le type 
d’erreur le plus simple à corri¬ 
ger. Vérifiez que les instructions 
sont bien écrites. A ce propos, 
un conseil, lorsque vous tapez un 
programme, faites-le en minus¬ 
cules. L’interpréteur convertira 
automatiquement les instruc¬ 
tions pour qu’elle apparaissent 
en majuscules dans votre pro¬ 
gramme. Ainsi, si dans une 
ligne, une instruction n’apparaît 
pas en majuscules, c’est que sa 
syntaxe est incorrecte. Si toutes 
les instructions sont correctes, 
vérifiez alors que vous avez bien 
laissé un espace entre une ins¬ 
truction BASIC et son, ou ses, 
paramètres. Par exemple dans le 
cas de BORDER O, il faut obli¬ 
gatoirement un espace entre 
BORDER et O. Vérifiez aussi 
que vous avez bien mis les : 
entre deux instructions, s’il s’agit 
d’un programme que vous êtes 
en en train de créer, n’utilisez 
pas dé variables dont le nom 
contient celui d’une instruction 
appartenant au langage que vous 
utilisez. De plus, n’oubliez pas 
les paramètres nécessaires à cer¬ 
taines fonctions. N’hésitez pas, 
en cas de doute, à vous reporter 
au manuel de votre ordinateur, 
il est là pour ça ! 


Autres messages 
d’erreur 

Certains messages d’erreurs, tel 
un SUBSCRIPT OUT OF 
RANGE IN LINE XXXX, ne 
vous donneront pas le numéro 
de la ligne où s’est réellement 
produite l’erreur. Dans le cas du 
SUBSCRIPT OUT OF 
RANGE, vous avez oublié de 
dimensionner votre variable (ou 
l’indice de dimension était trop 
petit) par l’instruction DIM. 

Les erreurs anonymes 

C’est le type d’erreurs le plus dif¬ 
ficile à détecter, la bête noire ees 
programmeurs. Le programme 
ne fonctionne pas correctement, 
mais aucun message d’erreur ne 
s’affiche. Le cas des DATA, vu 
précédemment, en est un bon 
exemple. Ne confondez pas un 
I avec un i ou un 1, ou encore 
un O avec un 0. Un programme 
fait ce qu’on lui demande, à con¬ 
dition que cela soit fait dans les 
normes. La programmation est 
quelque chose de très strict, 
soyez donc très vigilant ! 

Vous avez certainement remar¬ 
qué, en lisant notre revue, des 
nombres entre crochets à la 


droite de chaque ligne des lis¬ 
tings. Ils ne font, bien Sûr, pas 
partie des programmes, mais 
sont utilisés pour le debugging 
(terme du jargon informatique 
signifiant recherche d’erreur) en 
utilisant le programme vérifica¬ 
teur V2 (Amstrad Magazine 
n° 16 p. 88) que nous republie¬ 
rons régulièrement. Ce dernier 
doit être utilisé dès que vous 
tapez un programme de notre 
revue. Il vous signalera lorsque 
vous entrerez une ligne de pro¬ 
gramme si elle contient ou non, 
une erreur. Pratique n’est-ce 
pas ? 

De toutes façons, la meilleure 
façon de savoir corriger une 
erreur dans un programme, est 
encore de savoir programmer. 
Une très bonne méthode pour 
apprendre la programmation de 
base lorsque l’on est seul, est de 
transcrire un programme simple 
en BASIC d’un ordinateur à un 
autre. Cela impose une connais¬ 
sance croissante du BASIC de 
son ordinateur ainsi qu’une 
méthode de recherche perfor¬ 
mante qui est utile lors du 
debugging. Ceci dit, bonne pro¬ 
grammation ! 

Eric Mistelet 


A titre d'exercice 


e programme vérificateur V2 I 
taru dans Amstrad Magazine | 
i° 16 fonctionne très bien 
>our les trois modèles de 
m PC. S’il ne fonctionne pas 
\orrectement, c'est que vous 
tvez commis une faute de 
frappe quelque part. Nous 
tous rappelons que vous 
devez sauvegarder le pro¬ 
gramme avant de le lancer par 
un RUN. En effet, une erreur 
dans les DATA pourrait causer 
un plantage du système. 
Nous vous proposons donc 
une petite modification qui 
vous signalera une éventuelle 
erreur dans ces DATA. 
ATTENTION, tapez bien le 
programme prévu pour votre 
version de CPC, 464, 664, 
6128. Dans la modification 
que nous vous proposons, la 
variable SN dépend, elle 
aussi, du modèle de CPC que 
vous possédez. 

Lignes à rajouter au vérifica¬ 
teur V2 : 


Pour les trois modèles : 

135 

somme = somme + VAL( 

8,” + bytef) 

155 IF some O sn THEN 
PRINT "ERREUR DANS LES 
DATA": END 

— Version CPC 464 : US 
somme — O :sn — 33109 

— Version CPC 664 : US 
somme = O :sn s 33249 

— Version CPC 6128: 115 
somme = 0 :sn ~ 33203 

Si, lorsque vous lancez le pro¬ 
gramme, le message ERREUR 
DANS LES DATA s'affiche, 
vérifiez vos DATA , sauvegar¬ 
dez votre programme apres 
que les modifications néces¬ 
saires aient été effectuées. 
Nous vous rappelons que les 
commandes du vérificateur V2 
sont : ION; \OFF; \CHECK,2 
( CHECK,8 pour imprimante). 

NOTA : la barre verticale («j») 
s’obtient en appuyant sur 
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UTILITAIRE 




.«> DAT* 00,DB,U. e0 

1, 00 ,D8,ri, 00 , 1 E 2 



Créa tion 

A UTOMA TIQUE 
DE DA TAS 



g em n fichier binaire 
m M destiné à la 
M M prospérité (par 
l’intermédiaire 
d’une revue par 
exemple) se doit d’être trans¬ 
formé en une suite de codes 
héxadécimaux, inclus dans 
un programme chargeur Ba¬ 
sic. Ce dernier, signalant les 
erreurs de saisie éventuelles, 
a pour mission d’implanter 
les données en mémoire, 
puis de réaliser une sauve¬ 
garde automatique du lan¬ 
gage machine sur cassette 
ou disquette. Ce travail de 
création accompli, il peut 
être supprimé. 

Outre la métamorphose d’un 
fichier binaire en datas Ba¬ 


sic, l’ouvrage ici proposé, uti¬ 
lisant le lecteur de disquet- - 
tes, offre le programme char¬ 
geur spécifique, nanti d’un 
REM précisant le nom de la 
création binaire. 

Chargez ce programme par 
LO AD, placez la disquette 
contenant le ou les fichiers 
binaires à transformer et fai¬ 
tes RUN. 

Le programme effectue un 
catalogue de tous les fi¬ 
chiers d’extension « .BIN » 
figurant sur la disquette, puis 
réclame le nom du fichier à 
transformer, son adresse de 
chargement (&AOOO par dé¬ 
faut) et son adresse de fin. 
Une validation sans spécifi¬ 


cation, réclame alors la lon¬ 
gueur du fichier. Le choix du 
canal de sortie (écran, impri¬ 
mante ou disquette) est en¬ 
suite demandé (écran par dé¬ 
faut), ainsique le numéro de 
la première ligne de datas 
(100 par dé fa ut) et leur pas de 
numérotation (10 par défaut). 
Dans le cas d’une sortie sur 
disquette, le nom du pro¬ 
gramme chargeur Basic est 
évidemment à préciser. 
Nota : Les adresses de char¬ 
gement et de fin, ainsi que la 
longueur du fichier, peuvent 
être rentrées en décimal, ou 
en hexadécimal (avec le pré¬ 
fixe « & »). 

Stéphane Schreiber 
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Créa tionautoma tique de da tas 



°°° d ATq . c d,Dé 

J6 o «« %r 

' a *»« 5 


210 D*f>^ 
oqQ V 




’-'fcfï 

•:5?> :‘ 




'\ï> :....! 


10 

20 

30 

40 

50 


****************************** 

* Création automatique * 

* de datas * 

* par Stéphane SCHREIBER * 
****************************** 

60 IF HINEMO«t3FFF THEN 0PEN0UT “se 
pth 11 s MEMORY &3FFF: CL0SE0UT 
70 MODE 2 : d i r1="*.bin “ :iDIR,@dir $ 

80 INPUT "Programme binaire ? ",a$ 
90 IF al= " " THEN CLS:CAT:G0T0 80 
100 al=UPPER$(a$): IF IMSTR<a*,".")= 
0 THEN al=a$+“.BIN" 

110 INPUT "Adresse de chargement (& 
A000 par défaut) ? ",ad 
120 IF ad=0 THEN ad=&A000 
130 IF a<0 THEN a=65536+a 
140 INPUT "Adresse de fin ? ",af 
150 IF af =0 THEN PRINT STRINGI <2,11 
): INPUT " Longueur ? ",long ELS 

E 170 

160 IF 1ong=0 THEN PRINT CHRI(11):G 
0T0 150 ELSE af=ad+long 
170 PR I NT : INPUT "Canal de sortie: < 
EXcran, < I >mpr i mant e ou <D)isk (Ecr 
an par defaut) ? ", q$:q$ = UPPER$(qf) 
180 IF q*="" OR q*=“E" THEN q = 0 ELS 
E IF q$ = "I"- THEN q = 8 :WIDTH 40 ELSE 


n: 


!3 


[18401 

[6341 

[6573 

[12523 

C33323 

[21113 
[29483 
[11223 
[23083 


IF ql="D" THEN q=9 ELSE PRINT STRIN 
G$(3,11 ) : GOTO 170 

190 IF q=9 THEN INPUT " Nom du fi C32683 
chier ? ",nom$:IF INSTR<noml,".")=0 
THEN nom$=nom$+".BAS" 

200 PRINT:INPUT "Première ligne de [42613 
numérotation (100 par defaut) ? ",1 
210 INPUT "Pas de numérotation <10 C28683 

par defaut) ? ",p 

220 IF 1=0 THEN 1=100 [5873 

230 IF p<=0 THEN p=10 [10923 

240 LOAD a$,ad : IF q = 9 THEN OPENOUT [16363 
nom* 

250 MODE 2: PR I NT CHR$<24);"Prg.: “; [53613 
a $ ; ", de le" jHEX* (ad) ; ■ a S< " j HEX^ < af 
);“. Première ligne:";!;". Pas:"; 
p;CHR*<24> 

260 WINDOW 1,80,3,25:PAPER 0:PEN 1: [26913 
CLS 

270 IF q< >0 THEN LOCATE # 1,33,12: PR [35233 
INT # 1, " En travail..." 

280 PRINT #q, " 5 1 Créateur de " + a$ [ 16023 
290 PRINT #q," 10 MEMORY ?<"+HEX*<ad [3081 3 
-1)+": 1 = "+STRf(1) 

300 PRINT #q , " 20 FOR i=&"+HEX$(ad) [37423 
+ " TO !( " +HEX$ < af ) + " STEP 8 " 

310 PRINT #q," 30 s=0:F0R j=i TO i+ C16853 
7:READ a*" 

320 PRINT «q," 40 c=VAL ( "+CHRK34) + C 4 0 01 3 
"V'+CHR*<34)+”+a*):P0KE j,c:s=s+c:N 
EXT" 

330 PRINT # q, " 50 READ s$:IF sOVAL [87103 
( "+CHRK34) + "3<"+CHRI<34) + "+sl ) THEN 
PRINT "+CHR$(34)+"Erreur DATAs lig 
ne"+CHRI< 34)+"; 1 : STOP" 



340 

PRINT #Q," 60 1=1+ " +STRI(p)+": N 

[22423 

[27913 

EXT" 




350 

PRINT #q," 70 SAVE"+CHR*(34)+a* 

[50543 

[16873 

+CHR$<34>+".b,&"+HEX$<ad)+",îc"+HEX*. 


[10451 

< af - 

•ad ) + ", î<" + HEX$ ( ad ) 


[18513 

360 

FOR i=ad TO af STEP 8 

[5753 

[31823 

370 

s=0:PRINT #q , 1 ;"DATA ";:F0R j=0 

Ç 3093 3 


TO 

7 



380 

h*=HEX$(PEEK(i+j),2) 

[12423 

[36213 

390 

PRINT #q,h; 

[10751 


400 

5=5+VAL("&"+h$) 

[6373 

[46623 

410 

NEXT j 

[3703 


420 

PRINT #q,HEX$ < s, 3): 1=1+p 

[14623 


430 

NEXT i 

[3751 

[49701 

440 

1=1+p: PRINT #q, 1 ;"END" 

[15793 


450 

END 

C1103 




















Super glups 3d 


omparable a I uni¬ 
vers Pac Man, 
le monde Super 
Glups s’enorgueil¬ 
lit d’une troisième 
dimension, conférant à 
l’intrigue habituelle un sur¬ 
croît de difficulté. Les vingt 
tableaux modifiables de ce 
jeu, sont autant d’épreuves 
déroutantes pour le joueur 


humanoïde dénué du sens 
inné de l’orientation et 
déboussolé pari ’implacable 
cruauté de Big Blue. 
Sauvegardez le premier lis¬ 
ting sous un nom de votre 
choix et le second (règles et 
programme principal), sous 
le nom « G LU PI ». 


Claude Lemoullec 


10 EVERY 25,2 GOSUB 320 

20 MODE l: INK 0,0: BORDER 0îINK 1,0* 

INK 2,2s INK 3,19 

30 a*="L M C":x*200:y=34Or GOSUB 240 
40 a'î = "SOFTWARE" sx = 125: y=250s GOSUB 
240 

50 L0CATE 1,1 SPRINT" "s INK 

1,6 

60 L0CATE 17,16s PEN 3:PRINT"PRESENT 
S” 

70 SYMBOL AFTER 32:DIM a <15) 

80 L0CATE 7,20sPEN lsa*="SUPER GLUP 


[8131 

S 31 

D" 


[3903I 

90 1 

FOR H=1 T0 LEN(a*)s FOR j=0 T0 7 

[1993] 


100 

>:=8*< ASC < MIDI (a*, h) > -32) 

[18111 

[1666] 

110 

x $=BIN$ < PEEK(HIMEM+1+x+j),8) 

[2566] 

[16341 

120 

im$=“": FOR k = l T0 8 

[1677] 


130 

f*=MID*<x*,k,1) 

[1495] 

[1229] 

140 

i nrl=i m '1 + f 1 

[797] 


150 

N EXT k 

[373] 

[1212] 

160 

a<j*2)=VAL<"&X"+-LEFT$<inrl,8) ) 

[1872] 


170 

a(j*2+l)=VAL("&X"+RIGHT»(ifli$,8) 

[1359] 

[1699] 

) 



[2334] 

180 

N EXT j 

[370] 











Super glups 3d 


190 SYMBOL 250,a<0>,a<2),a<4>,a<6) , [2932] 
a (8> , a ( 10) , a(12) , a ( 14 > 

200 SYMBOL 25 1 , a(1 ),a<3),a<5>,a<7> , [21193 
a(9) , a < 11 ) , a ( 13) , a ( 15) 

210 PRINT CHRK250) ; îPRINT CHR*<251 [2272] 


> 5 

220 NEXT h [3723 

230 RUN "!GLUP1 [6803 

240 a = LEN < a*):a 8 =a #8 [16363 

250 LOCATE 1,1 :PEN 1î PR I NT a*j:PEN [ 1944 3 

1 

260 tx=x : y2=39B [6343 


270 FOR f = l TO 8 s >! 2 = 0s F0R g = l TO a8 [ 10833 
280 IF TEST( x2,y2)=l THEN PLOT x+4 [93993 
, y, 2: PLOT x +-4 , y-2 : PLOT x,y-2:PL0T x 
+2,y-2:PL0T x+4,y-4:PL0T x+2,y-4;PL 
OT x,y-4 s PLOT x-2,y+2,3 : PLOT x,y+2: 

PLOT x +2,y+2:PLOT x+2,y:PL0T x-2,y: 

PLOT x ,y 

290 x = x + 6 s x2 = x2 + 2 [12843 

300 NEXT g:y=y-6:tx=tx:y2=y2-2:x=tx [20563 
:NEXT f 

310 RETURN [5553 

320 DI s IF (SQ <1) AND 71=0 THEN El * R [54103 
ETURN ELSE READ p,d ïIF p = -l THEN RE 
STORE 340:G0T0 320 

330 SOUND 1,P,D*0.5:SOUND 2,0.5*P, [49583 
D*0.5:SOUND 4,0.25*P,D*0.5:GOTO 320 
340 DATA 478,050,379,050,358,050,31 [21163 
9,200,000,005,319,050 

350 DATA 478,050,379,050,358,050,31 [21223 
9,200,000,005,319,100 

360 DATA 478,050,379,050,358,050,31 [29033 

9.100.379.100.478.100 

370 DATA 379,100,426,200,000,005,42 [27993 
6,050,379,050,000,005 

380 DATA 379,050,426,050,478,150,00 [23043 
0,005,478,050,379,100 

390 DATA 319,100,000,005,319,050,35 [29883 
8,150,000,005,358,100 

400 DATA 379,050,358,050,319,100,37 [22693 

9.100.478.100.426.100 

410 DATA 478,200,000,005,478,050,00 [24653 
0,005,000,005,-01,001' 



10 BORDER 0:MODE 1:INK 0,0:INK 1,26 [17243 
: INK 2,6:INK 3,18:CLS 

20 PEN 3:LOCATE 11 ,8 : PR I NT STRING*< [64383 
21,"*")jLOCATE 11,18:PRINT STRING*( 

21 FOR h = 9 TO 17:L0CATE 11, h : P 
RINT "*":LOCATE 31,h : PR INT“*":NEXT 

30 PEN 2:LOCATE 13,1 Os PRINT" 1 -" 5 :P [33113 
EN 1 : P RIN T" REGLES DE JEU" 

40 PEN 2:LOCATE 13,13:PRINT"2 -"; : P [37963 
EN 1.îPRINT" JOYSTICK" 

50 PEN 2:LOCATE 13,16:PRINT"3 -" ; : P [31163 
EN 1 SPRINT" CLAVIER" 

60 A f =IN K E Y * : IF a*="" THEN GOTO 60 [1836 3 

70 PRINT CHR* < 7)s IF A*="l" THEN GOT [21173 
0 110 


80 IF A * ="2" THEN GOTO 290 
90 IF A*= "3" THEN GOTO 300 
100 GOTO 60 

110 CLS s MODE 1 :LOCATE 15,1 : PR INT"SU 
PER GLUPS":PEN 2:L0CATE 15,2 : PR I NT 

Il__ Il 

120 PEN 3:LOCATE 1,4:PRINT" Les 
jeux les plus simples sont les mei 
lleurs et les plus efficaces," 

130 LOCATE 1,7s PRINT" Un arene 

de jeu,des couronnes qu‘un";:PEN 1: 
PR INT 11 SUPER GLUPS" 

140 LOCATE 13,8:PEN 3:PRINT" doit r 
amasser." 

150 LOCATE 1 ,10:PRINT" Tout en 

évitant les contacts avec" 

160 LOCATE 1 ,11 :PEN 2:PRINT"BIG BLU 
E"; :PEN 3:PRINT" son ennemi jure,." 
170 LOCATE 1,13s PRINT"’ Un theme 
des plus classique pour unjeu qui 
ne l'est pas" 

180 LOCATE 1, 16:PRINT" Ici les 
décors sont en 3D et les 20tableaux 
qui composent le jeu sont tous des 
piégés differents" 

190 LOCATE 1,20:PRINT" En REM v 
dus trouverez le moyen pourcreer vo 
s propres tableaux si les miens ne 
suffi sent pas." 

200 LOCATE 33,25:PEN 1:PRINT"<ENTER 
V'sCALL &BB 18 

210 CLS:LOCATE 15,1:PRINT"DEPLACEME 
NTS":PEN 2:LOCATE 15,2 : PR INT"****** 
*####*" 

220 LOCATE 1,4:PRINT"Joystick/c1avi 
er":PEN IsLOCATE 1,5 : PR I NT”- 


230 LOCATE 8 ,7: PRINT CHR*(240):LOCA 
TE 14,7: PRINT"= avance du GLUPS" 
240 LOCATE 8,10:PRINT CHR*(243):LOC 
ATE 14,10 : PR I NT " = 1/4 de tour a dr 

oi te" 

250 LOCATE 8,13:PRINT CHR*(242):LOC 
ATE 14,13:PRINT"= 1/4 de tour a ga 

uche" 


260 PEN 3:LOCATE 6,19: PRINT STRING* 
<30,"=") 

270 PEN 2:LOCATE 15,22:PRINT "BONNE 
CHANCE" 

280 LOCATE 33,25:PEN 1:PRINT"<ENTER 
>" : CALL ?<BB18: GOTO 10 


290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 


ga=74:da=75:ht=72:GOTO 360 
ga=8:da=l:ht=0:G0T0 360 

REM ::::::::::::.:::::: 

REM : : 

REM : INITIALISATION : 

REM : : 

REM :::::::::::::::::::::::: 
SYMBOL AFTER 199 
SYMBOL 200,0,0,0,0,1,6,24,96 
SYMBOL 201,1,6,24,96,128,0,0,0 
SYMBOL 202,128,96,24,6,1,0,0,0 
SYMBOL 203,0,0,0,0,128,96,24,6 
SYMBOL 204,0,0,0,0,0,1,7,31 
SYMBOL 205,0,1,7,31,127,255,255 


430 SYMBOL 


206,0,128,224,248,254,25 


,255,255 


440 SYMBOL 207,0,0,0,0,0,128,224,24 
3 


[9493 
[14493 
[390 3 
[49373 


[76453 


[69783 


[27663 

[46053 

[55073 

[70263 


[92653 


[72453 


[17063 

[52633 


[55223 


[42843 

[49323 


[70763 


[28163 

[30253 

[19953 

[12463 

(12923 

[18233 

[4193 

[10343 

[4193 

[18233 

[14573 

[15573 

[15903 

[21083 

(22543 

[14123 

[21493 

[25003 

[14663 















450 SYMBOL 208,127,31,7,1,0,0,0,0 C1612 3 
460 SYMBOL 209,255,255,255,255,127, [24933 
31,7,1 

470 SYMBOL 210,255,255,255,255,254, C 16383 

248.224.128 

480 SYMBOL 211,254,248,224,128,0,0, [23263 

■ 0,0 

490 SYMBOL 212,128,128,128,128,128, [24003 

128.128.128 

500 SYMBOL 213,1,1,1,1,1,1,1,1 [13553 

■510 SYMBOL- 214,0,0,0,0,7,31,120,96 [ 18383 

520 SYMBOL 215,0,0,0,0,224,248,30,6 [1810] 
t-530 SYMBOL 216,96,120,31,7,0,0,0,0 [19503 

540 SYMBOL 217,6,30,248,224,0,0,0,0 [19483 
550 SYMBOL 218,0,12,12,28,31,63,60, [19093 
■ 60 

560 SYMBOL 219,0,0,0,0,255,255,0,0 [19153 

570 SYMBOL 222,238,238,238,238,238, [19763 


238,238,0 

580 REM s :.. [18233 

590 REM ! : [4193 

600 REM : ROUTINES LM ! [19483 

610 REM ! i C4193 

620 REM ::::::: .. [18233 

630 MEMORY î< 7 F F F [1503 


640 REM. GLUPS GAUCHE ::::: [15013 

650 RESTORE 660iF0R h=«<9000 TO «<900 C36023 
0+63s READ AP: POKE h ,VAL ( "S<" + aP ) : NEX 
T 

660 DATA 00,33,FF,88,00,77,FF,CC,00 [88953 

,76,FF,EE,00,EF,FD,£E,00,FE,DF,FF,1 

1,FB,FD,FF,76,F7,FF,FF,F9,FF,FF,FF, 

F9,FF,FF,FF,66,77,F6,EE,00,77,F9,CC 

,00,33,FF,CC,00,00,CC,CC,00,11,99,8 

8,00,11,99,88,00,77,33,00 

670 REM î:::: GLUPS BAS : : : : : [ 19463 

680 RESTORE 690:FQR h = ?<904 1 TO «<904 C40173 

1+63: READ AP:POKE h , VAL < " 8< " + aP ) : NEX 

T 

690 DATA 11,FF,CC,00,33,FF,EE,00,77 [111803 

,FF,E6,00,77,FB,7F,00,FF,BF,F7,00,F 

F,FB,FD,8B,FF,FF,FE,E6,FF,FF,FF,F9, 

FF ,FF,FF,F9,77,F6,EE,66,33,F9,EE,00 

, 33,FF,CC, 00,33,33,00,00,11,99,88,0 

0,11,99,88,00,00,CC,EE,00 

700 REM ::::: GLUPS HAUT ::::: [15813 

710 RESTORE 720: FOR h = S<90C3 TO «<90C [35393 

3+63: READ AP:POKE h , VAL < H «<"+aP) : NEX 

T 

720 DATA 00,33,F3,88,00,73,FF,C4,00 [113133 
,FC,FC,EE,11,F7,F3,EC,11,FB,FF,FB,7 
7,FC,FE,F7,F9,FF,F1,FF,FB,FF,FF,FF, 

77,FF,FF,FF,00,FF,FF,EE,00,77,FF,CC 

,00,33,FF,CC,00,11,99,88,00,33,33,0 

0,00,77,33,00,00,EE,66,00 

730 REM ::::: GLUPS DROITE ::::: [19403 

740 RESTORE 750:F0R h = 8<9104 TO «<910 [34323 

4+63:READ AP:POKE h,VAL<"&"+al):NEX 

T 

750 DATA 11,FC,CC,00,32,FF,EC,00,77 [100173 
,F3,F3,00,73,FC,FE,8B,FD,FF,FD,83,F 
E,F7,F3,EE,FF,F8,FF,F9 ,FF,FF,FF,FD, 

FF,FF,FF,EE,77,FF, FF, 00,33,FF,EE,00 

, 33,FF,CC,00,1 1,99,88,00,00,CC,CC,0 

0,00,CC,EE,00,00,66,77,00 

760 REM ::::: BIG ELUE ::::: [13303 

770 RESTORE 780: FOR h = S t 9082 TO «<908 [4841 3 

2+63: READ AP: POKE h , VAL ( "?<" + aP ) : NEX 

T 


780 DATA 00,77 ,EE,00,11, 8 F,1 F,88,23 

,OF,OF,4C,47,OF,OF,4C,47,4B,2D,2E,C 

F,E1,78,2E,8F,4B,2D,1F,8F,0F,0F,1F, 

8 F, OF, OF, 1F, 8 F, OF, OF, 1F , 8 F, OF, OF, 1F 

,47,3F,CF,2E,47,4F,2F,2E,23,0F,OF,4 

C,11, 8 F,1F, 88 ,00,77,EE, 00 

790 REM ::::: AFFICHAGE SPRITE :::: 

800 RESTORE 810:FOR h=&AOOO TO &A05 
C:READ AP :POKE h,VAL <"&"+aP):NEXT 
810 DATA DD,5E,00,DD,56,01,DD,6E ,02 
,DD,66,03,06,10,CD,19,BD,F3,C5,E5,0 
6,04,1A,E6,88,28,06,4F,7E,E6,77, B1 , 
77,1 A,£6,44,28,06,4F,7E,E6,BB,B1,77 
,1A,E6,22,28,06,4F,7E,E6 
820 DATA DD,B1,77,1A,E 6 ,1 1,28,06,4F 
,7E,E6,EE,B1,77,23,13,10,D0,E1,CD,5 
1,A0,C1,10,C5,FB,C9,00,00,7C,C6,08, 
67,DO,05,11,50, CO,19, D1,C9 
830 REM ENLEVE SOUS SPRITE :: 

840 RESTORE 850: FOR b = S<A060 TO ?<A07 
C:READ AP : POKE h , VAL ( " ?< " + aP ) : NEX T 
850 DATA 11 ,00,A4,DD, 6 E,00,DD, 66 ,01 
,06,10,C5,E5,06,04,7E,12,13,23,10,F 
A,''El, CD, 51 , AO, Cl, 10, EF, C9 
860 REM ::::: REMET SUR SPRITE :::: 

870 RESTORE 880: FOR h = ?<A080 TO ?<A09 
C: READ AP : POKE h, VAL ( " !< " + aP ) : NEX T 
880 DATA 11,00,A4,DD, 6 E,00,DD, 66 ,01 
,06,10,C5,E5, 06,04,1 A,77,23,13,10, 
FA,El,CD,51,AO,Cl , 10,EF,C9 
890 FOR b=&A060 TO &A07C: a=PEEK (h ) : 
POKE h+& 100, a: NEXT: POKE $<A161,«<50 
900 FOR h=J<A080 TO ?<A09C: a=PEEK (b ) : 
POKE h + &100,a :NEXT: POKE «<A181, S<50 
910 REM :::::::::::::::::::::::: 

920 REM : : 

930 REM : VARIABLES DE BASE : 

940 REM : : 

950 REM i: :i: : : : ;i: : ; : : : : : : : : : : : 

960 CALL îcBBFF: INK 0,0:1 NK 1,26: INK 
2,2:INK 3,6:BORDER 0:CLS 
970 clP=CHRP<200)+ CHRP(201)+CHRP(20 
2)+CHRP(203) 

980 c2P=CHRP(202)+ CHRP(203)+ CHRP(20 
0)+CHRP(201) 

990 c3P=CHRP(204)+ CHRP(205)+CHRI(20 
6)+CHRP(207) 

1000 c4$=CHRP(208)+CHRP(209)+CHRP(2 
10)+ CHRP(211) 

1010 c5P=CHRP(212) +CHRP (10) +CHRP( 8 ) 
+CHRP(202)+CHRP< 203> +CHRP( 8 )+ CHRP(2 
13) 

1020 c6P=CHRP(214)+CHRP(215) 

1030 c7P=CHRP(216)+CHRP(217) 

1040 martP=CHRP(218)+CHRP(219) 

1050 trP=CHRP(22)+CHRP(l) 

1060 nrP=CHRP(22)+CHRP(0) 

1070 DEF FN po<>:,y ) =«<C000+ (y-1 ) *80 + 
(>:--!) *2 

1080 sp ( 1 ) =«<90C3: sp (2) =?<9104 : ap (3) = 
?<9041 : sp (4) =«<9000: sen 5 = l 
1090 WINDOW #1 ,1,40,1 ,21îWINDOW #2, 
15,25,20,22 

1100 sc=0:rec=0:fin=0:vie=5 

1110 ta = INT(RND + 19)+1 :vi11=50:vit2 = 

550 

1120 REM 


[96973 


[24883 

[37643 

[73953 

[65613 

[17223 

[30933 

[58683 

[20383 

[34953 

[50803 

[47843 

[29433 

[18233 

[4193 

[20813 

[4193 

[18233 

C 3 7 4 8 3 

[25663 

[32643 

[39623 

[22263 

[38903 

[16973 
[20923 
[21713 
[806 3 
[7003 
[585 3 

[26163 

[23623 

[9113 

[19273 

[18233 































Super glups 3d 




1130 REM : ; [4193 

1140 REM : TAB DES SCORES : [8893 

1150 REM : : C 419 3 

1160 REM .. [ 18233 


1170 PEN 2:LOCATE 4,23sPRINT "SC [47383 

VI TA" :LOCATE 

4,24: PRINT "HI 
TIME" 

1180 GOSUB 2480:GOSUB 2520sG0SUB 25 [29903 
60:GOSUB 2600:GOSUB 2620 

1190 PLOT 44,12,1:DRAW 44,52:DRAW 1 [28843 
96,52:DRAW 196,12:DRAW 44,12 
1200 PLOT 428,12 : DRAW 428,52:DRAW 5 [2531 3 
96,52:DRAW 596,12:DRAW 428,12 
1210 FOR H=12 TO 36:PL0T 208,H:DRAW [28123 
416,H: NE.XT 

1220 PEN 3: LOCATE 15,24: PR INT "SlIPE [ 19093 


R GLUPS" 

1230 REM :::::::::::::::::::::::: [18233 

1240 REM : : [4193 

1250 REM : TABLEAU +1 ; [5743 

1260 REM : : [4193 

1270 REM [18233 


1280 DIM jeu<12,12): DIM ait ! 11) ,blf [2578 3 
( 11 ) , d 1 U 11 ) 

1290 CLS #1 :CLS #2:G0SUB 2600 [ 18963 

1300 IF ta>20 THEN ta=l [8063 

1310 ON ta GOTO 1320,1330,1340,1350 [36863 
,1360,1370,1380,1390,1400,1410,1420 
,1430,1440,1450,1460,1470,1480,1490 


1320 

RESTORE 

3330 

GOTO 

1520 

[6953 

1330 

RESTORE 

3350 

GOTO 

1520 

[10803 

1340 

RESTORE 

3370 

GOTO 

1520 

[17123 

1350 

RESTORE 

3390 

GOTO 

1520 

[13263 

1360 

RESTORE 

3410 

GOTO 

1520 

[10943 

1370 

RESTORE 

3430 

GOTO 

1520 

[13263 

1380 

RESTORE 

3450 

GOTO 

1520 

[6953 

1390 

RESTORE 

3470 

GOTO 

1520 

[8563 

1400 

RESTORE 

3490 

GOTO 

1520 

[20323 

1410 

RESTORE 

3510 

GOTO 

1520 

[10803 

1420 

RESTORE 

3530 

GOTO 

1520 

[10943 

1430 

RESTORE 

3550 

GOTO 

1520 

[9683 

1440 

RESTORE 

3570 

GOTO 

1520 

[6953 

1450 

RESTORE 

3590 

GOTO 

1520 

[11183 

14 60 

RESTORE 

3610 

GOTO 

1520 

[17923 

1470 

RESTORE 

3630 

GOTO 

1520 

C10803 

1480 

RESTORE 

3650 

GOTO 

1520 

[17123 

1490 

RESTORE 

3670 

GOTO 

1520 

[9683 

1500 

RESTORE 

3690 

GOTO 

1520 

[15683 

1510 

RESTORE 

3710 

GOTO 

1520 

[13263 

1520 

vitl=vitl-2:vit2=vit2-10:GOSUB 

[30613 

1970:GOSUB 

2560 




1530 

1540 

RPM «•• 




[18233 

[4193 

REM : 




1550 

REM : 

ROUTINE PRINCIPALE : 

[22253 

1560 

REM : 




[4193 

1570 

1580 

RPM • » » 




[18233 

[31943 

a = 28 : b = 

15:a 1 = 

: a : b 1 = 

b :jx =6 :j y =11 

: mx = 
- n 

10 : in y =6 : 

six l = mx : my 1 = 

m Y : j x 1 = 6 : j y 1 


1590 

CALL ?<A060,FN po(a 

, b ) : s e n 5 = 1 

[17443 

1600 

CALL S< A16 0 , F N po(mx,my) 

[18313 

1610 

CALL ?<A00Û,FN po(a 

, b ) , s p ( 1 ) 

[ 13333 

1620 

CALL SfAOOO,FN po <mx , my ) ,&9082 

[11143 

1630 

EVERY va 11.2 

GOSUB 

2310 :EVERY 

[25193 

vit 2 

,3 GOSUB 

3070 




1640 

IF Tir,= 

1 THEN 2680 


[10093 

1650 

IF INKEY(ht)= 

:0 THEN 1730 

[12723 

1660 

IF INKEY(da)= 

= 0 THEN sen5 = 5eri5 + 

[21523 


1 : GOTO 1690 

1670 IF INKEY(ga)=0 THEN sen 5 = 5 er) 5 - [18703 
1 : GOTO 1700 

16B0 GOTO 1640 [3073 

1690 IF sens>4 THEN sen 5 =l:G 0 T 0 171 [10013 
0 

1700 IF sens<l THEN sens=4 [5883 

1710 CALL &A080, FN po(a 1, b 1):CALL & [3201 3 
A000,FN po(a,b),sp(sens) 

1720 FOR t = l TO 15 : SOUND 1,50-t,1,5 C 4093 3 
: NEXT t: GOTO 1640 

1730 ON sens GOTO 1740,1770,1750,17 [12533 
60 

1740 jy = jy-1 : IF jeu < j>: , jy ) >0 THEN 1 [28383 

780 ELSE jy=jy + 1 : GOTO 1640 

1750 jy=jy + 1: IF jeu(jx,jy)>0 THEN 1 [36623 

780 ELSE jy=jy-1: GOTO 1640 

1760 jx=jx-1: IF jeu(jx,jy)>0 THEN.1 [22103 

780 ELSE j>: = jx + 1 : GOTO 1640 

1770 Jx»jx + 1s IF jeu <jx,jy)>0 THEN 1 [30773 

780 ELSE jx = jx -1 : GOTO 1640 

1780 a=(jy*2)+(jx*2)-6:b=(10+jy)-jx [15703 

1790 IF a=fflx AND b=my THEN CALL ?<A0 [3570 3 

80, FN po(al,b 1 ) : Ti n = 1 : ir.u=REMAIN (2) : 

GOTO 1640 

1800 CALL &A08Û ,FN po < a 1 , b 1> [ 14573 

1810 CALL !(A060,FN po(a,b):CALL &A0 [2.1093 
00,FN po(a,b),sp(sens) 

1820 SOUND 1,100,2,5 C 12933 

1830 IF TEST (al*16,378-(bl*16) )=3 T [22983 
HEN GOSUB 1860 

1840 al=a:bl=b:IF jeu(jx,jy)=10 THE [16373 
N 1890 

1850 GOTO 1640 [3073 

1860 DI :PEN 2:L0CATE a 1,b 1 +1 : PR I NT C 58233 
c 6 t :LOCATE a 1,b 1+2:PRINT c7*:EI:SQU 
ND 2,300,2,6 

1870 pic = pic + l: IF pic = nbpic THEN GO [39073 
SUB 3170 


1880 sc=5C+100: RETURN [10733 

1890 mu=REMAIN(2):tp=REMAIN(3) [11243 

1900 GOSUB 2480:FOR t=l TO 200:S0UN [55493 

D 1,t,1,14:NEXT t:ta=ta +1 : pic=0:cen 
t=cent+4.5 

1910 ERASE jeu :ERASE a 1 $ , b 1 $ , d 11: GO [ 15853 
TO 1280 

1920 REM :::::::::::::::::::::::: [18233 

1930 REM : : [4193 

1940 REM : DESSIN TABLEAUX : [19793 

1950 REM : : [4193 

1960 REM :::::::::::::::::::::::: [18233 

1970 FOR h = 1 TO 11 :READ al [ 14073 

1980 ail (h) =BIN$(al, 11) [6983 

1990 NEXT [3503 

2000 FOR h=1 TO 11 : FOR g=l TO 11 [18953 

2010 b 1l=MIDI< a 11(h) ,g , 1): b 1=VAL(b 1 [21453 

$ ) 

2020 IF b 1 = 1 THEN 2050 . [3163 

2030 NEXT g,h ' [3893 

2040 GOTO 2150 [3493 


2050 ax=<g*2)+<h*2)-5:by=<12+h)-g C12623 
2060 PEN 1 :LOCATE ax,by:PRINT trl;c [56103 
1 $ :LOCATE ax,by + l:PRINT c2l:PEN 2 :L 
OCATE ax,by:PRINT c3l:L0CATE ax,by+ 

1:PRINT c4* 

2070 jeu(g,h+l)=l [5723 

2080 b2l = M I DI< a 1 1(h) , g — 1 ,1) :b2 = VAL( [ 14933 
b2l ) 

2090 IF b2 =1 THEN 2110 [5323 

2100 PEN 1 :LOCATE ax,by + l:PRINT c5l [11653 


22 



























2110 dll=MID!(all(h+l) ,g,l):dl=VAL< 
dit) 

2120 IF d1=1 THEN 2030 
2130 PEN 1 ! LOCATE an +2 , by+2 : F'R I NT C 
HR*(212)+CHR*<201)sLOCATE ax+ 2 ,by +2 
SPRINT CHRI1200)sLOCATE a>: +-3 , b y +1 î P 
RI NT CHR! (213) 

2140 GOTO' 2030 

2150 REM ; ; s : DESSIN COURONNES 
2160 FOR h=1 TO 11 : R E A D al 
2170 al$(h , )=BINf U 1,11) 

2180 NEXT 

2190 FOR h = l TO 11 : FOR g = l TO 11 
2200 bl!=MIDf(al$(h),g,l):bl=VAL(bl 
I) 

2210 IF bl = l THEN 2230 

2220 NEXT g,h : READ nbpi c,sort :RETUR 

N 

2230 ax=(g*2)+(h*2)-4:by=(12+h)-g 
2240 PEN 1 : LOC-ATE an , by : F'R INT c 6 !:P 
EN 3:LOCATE ax,by+1 : PR I NT c7! 

2250 j eu(g,h +1)=2 : GOTO 2220 
2260 REM : : : : :i: : : ; : : : : : : : : : : : : : : 
2270 REM : s 

2280 REM : DEPLACEMENT BIG ELUE : 

2290 REM : ! 

2u00 REM :::::::::::::::::::::::: 

2310 DI 

2320 IF j>: > jx 1 AND jeu ( jx 1 + 1, jy 1 ) >0 
THEN jx1 = jx1 +1 s GOTO 2360 
2330 IF j y < j y 1 AND jeu(jx1,jy 1 -1 ) >0 
THEN j y 1 = j y 1 -1î GOTO 2360 
2340 IF j y > j y 1 AND jeu<jx1,jy1 + 1)>0 
THEN jyl=jyl+i:GOTG 2360 
2350 IF j x < j x 1 AND jeu(jx1-1,jy 1 ) >0 
THEN j*1 »jx1-1 

2360 mx=(jyl*2) + <jxl*2)-6smy s =<10 + jY 
1 ) - j X 1 

2370 IF mx = a AND my = b THEN rau = REMAI 
N(2): GOTO 2420 

2380 CALL &A180,FN po(mx1,my1 )îCALL 
&A160,FN po (dix ,my ): CALL iA000,FN p 
o(m>;, my) , &90S2 
2390 mxl = mx:niyl=myî 
2400 EliRETURN 

2410 REM un os ? TEL 96 38 94 24 (d 
emandez CLAUDE) 

2420 El : CALL A18 0 , F N po ( mx 1 , my 1 ) : d 
er = l : -f in = l s RETURN 
2430 REM s::::::::::::::::::::::: 
2440 REM !' ' : 

2450 REM : GESTION DES SCORES î 
2460 REM : : 

2470 REM s:::::;:::::;::::::;:::: 
2480 PEN 1 : IF sc=0 THEN LOCATE 7,23 
: PR INT nr ! ;"000000RETURN 
2490 IF 5C< 1000 THEN LOCATE 10,23: P 
RINT nrl; " "sLOCATE 9,2 3 : P RIN T tr 
lisesRETURN 

2500 IF sc< 10000 THEN LOCATE 9,23: P 
RINT nr$\ " "sLOCA TE 8,23sPRINT t 
r!j sc:RETURN 

2510 IF sc>10000 THEN LOCATE 3,23:P 
RINT n r I ; 11 "sLOCATE 7,2 3 : P RIN T 
tri;scsRETURN 

2520 PEN 1 :LOCATE 7,24: PRINT nrl; "0 
00000'': IF r ec=0 THEN RETURN 
2530 IF rec<1000 THEN LOCATE 10,24: 
PRINT nrl;" "sLOCATE 9,2 4iP RIN T t 
rttrect RETURN 


[14273 

[5443 

[87213 


[3653 

[14393 

[14073 

[6983 

[350 3 

[18953 

[21453 


C3123 

[20393 


[18343 

[44003 


[7353 

C18233 

[4193 

[17273 

[4193 

[18233 

[843 

[27213 

[35013 

[26113 

[30203 


[23723 

[20953 

[45653 


[7823 

[4163 

[23903 


[23263 


[18233 

[4193 

[17803 

[4193 

[18233 

[29023 


[51863 


[52443 


[56903 


[25043 

[48643 


2540 IF rec<10000 THEN LOCATE 9,24: 
PRINT nrl; " "sLOCATE 3,24:PRINT 
trI;r ec:RETURN 

2550 IF rec>10000 THEN LOCATE 8,24: 
PRINT nrl;" "sLOCATE 7,24:PRINT 
tri:rec:RETURN 

2560'PEN O.-LOCATE 36,23:PRINT CHRî ( 
143)+CHRI(143) 

2570 IF t a<10 THEN 2580 ELSE 2590 
2580 PEN 1sLOCATE 36,23:PR I NT"0"s LO 
CATE 36,23:PRINT tri;ta:RETURN 
2590 PEN 1sLOCATE 35,23:PRINT tr!;t 
a:RETURN 

2600 PEN 3:LOCATE 32,24:PRINT trl;C 
HR!(222)+CHRI<222):PEN 1: LOCATE 34, 
24:PRINT CHRI1222)+CHRI(222)+CHRI<2 
22)+CHR!(222) 

2610 temps=12:RETURN 

2620 PEN 0sLOCATE 31,23:PRINT CHRI( 

143):PEN 1 :LOCATE 30,23:PRINT vie:R 

ETURN 

2630 REM s::::::::::::::::::::::: 
2640 REM : : 

2650 REM : VIE -1 : 

2660 REM : : 

2670 REM :::::::::::::::::::::::: 
2680 FOR h=1 TO 10:OUT &BC00,2:0UT 
?<BD00 ,49: FOR t=l TO 70: NEXT: SOUND 4 
, 1500+h*100,20,7,0,0,h:OUT &BC00,2: 
OUT Sc B D 0 0,4 3 : F 0 R t = l TO 70:NEXT:NEX 
T Si: OUT 5<BC00,2 : OUT $<BD00,46 
2690 FOR t=l TO 2000:NEXT t 
2700 IF der = 1 THEN CALL ?<A080,FN po 
(ai , b 1 ) ELSE CALL $<A180,FN pofmxl,m 
yl) 

2710 der=0:Fin=0:vie=vie-i:G0SUB 24 
80:GOSUB 2620 

2720 CALL 8<A180,FN po <mx 1,my 1 ) : CALL 
S.A080 , FN po ( a 1 , b 1 ) 

2730 IF vie = 0 THEN GOSUB 2800 
2740 GOSUB 2430:G0SUB 2600:tp=REMAI 
N(3): GOTO 1580 

2750 REM : : : : : : : : : : : : : : : : : : ; : : : : : 
2760 REM : s 

2770 REM : PERDU : 

2780 REM : : 

2790 REM :::::::::::::::::::::::: 
2800 ENT 4,20,3,5:SOUND 4,20,100,15 
, 0,4 : FOR t = l tO 2000:NEXT 
2810 CLS #1 :CLS #2:tp=REMAIN<3): mu* 
REMAI N(2) 

2820 IF ec>rec THEN rec=sc:GOSUB 25 
20 

2830 RESTORE 2860:F0R h = l TO 9:READ 
ax,b y :GOSUB 3230:NEXT 
2840 FOR h=l TO 3 : R E A D ax,by:GOSUB 
3250:NEXT 

2850 FOR h=1 TO 3:READ ax,by:GOSUB 
3260:NEXT 

2860 DATA 15,8,19,8,23,8,17,7,21,7, 
1 9,6,1 7,9,21,9,1 9,10, 1 5,3, i 7,9,1 9 , 1 
0,19,10,21,9,23,8 

2870 CALL ?<AOOO,FN po ( 19.5,5) , 5p (4> 
2880 WH ILE INKEYK : WEND 
2890 LOCATE 14,14:PEN 3 : P RIN T "REVI 
T A LIS A T 10 N " 

2900 LOCATE 5,16:PEN 2:PRINT "VOUS 
AVEZ FAIT * ; CENT; * 1 DU PARCOURS" 
2910 cent=ü 

2920 LOCATE 5,18:F'£N i.-PRINT "POUR 


[49983 


[49793 


[29153 

[17223 

[34983 

[22933 

[57023 


[11113 

[42203 


[18233 

[4193 

[6473 

[4193 

[18233 

[76663 


[16763 

[40633 


[26433 

[38523 

[8133 

[27413 

[18233 

[4193 

[934 3 

[4193 

[18233 

[32583 

[23463 

[7673 

[43323 

[28403 

C21393 

[38183 


[13943 
[17863 
[30403 

[42263 

[3523 

[46663 


23 






















Super glups 3d 


REJOUER APPUYEZ SUR < E N T E R > " 

'.2930 PEN OiLOCATE 20,4:PR INT CHRI ( 1 
43)+CHR$(143):L0CATE 20,3:PEN 1 : PR I 
NT MARTI 

■2940 FOR t=l TO 200:NEXT 
■2950 PEN 0 i LOCATE 20,3 : PR I NT CHRUl 
43)+CHRIU43)sLOCATE 20,4:PEN IsPRI 
' 'NT MARTI: 

■2960 SOUND 2,50,5,15:FOR t=l TO 200 
H :NEX T 

.•>2970 IF INKEYI=CHRI (13) THEN 2990 
■2980 GOTO 2930 

■2990 VIE=5:GOSUB 2620:SC=0:GOSUB 24 
180:PIC=0 

■3000 ta=INT(RND*19)+1:GOSUB 2600 
■3010 vitl=50:vit2=550:GOTO 1910 
■3020 REM :::::::::::::::::::::::: 

■ 3040 REM : TEMPS -1 : 

■ 3050 REM : 

■3060 REM :::::::::::::::::::::::: 

■ 3070 DI : LOCATE 2,2:F'RINT CHR!(7>:te 
Imps=temps“l: IF INT(temps/2)=temps/2 

, ■ THEN GOTO 3090 ELSE 3030 
. H3080 PEN 0;LOCATE 32+((tenps-1)/2) , 
. . '324 : PR INT tri;CHRI<138): GOTO 3110 

■ 3090 PEN 0:LOCATE 32+ <t emps/2) , 24 : P 
-■ RIN T tr i ; CHRI (133) 

■ 3100 IF teiïips=0 THEN F i n=l : tp = REMAI 
N<3) :mu«=REMAIN<2) 

{3110 El :RETURN 

' 3120 REM . :::::::: i : : : : : : : : : : 

R 3130 REM : : 

■3140 REM : AFFICHAGE SORTIE : 

■ 3150 REM : : 

,13160 REM : : : : : : : : : : : : : : : : : : : : : : : : 

■ 3170 FOR h = l TO 30 : SOUND 1,100-h,2, 
5:NEXT 

13180 ON sort GOTO 3190,3200,3210,32 
20 

■ 3190 ax = 9 : by=5 : GOSUB 3230:G0SUB 325 

■ O;by=7:GOSUB 3230:jeu<7,1)=10:RETUR 

■n 

■3200 ax=31:by=6:GOSUB 3230:GOSUB 32 
60:by=8:GOSUB 3230:jeu U2,7) = 10:RET 
lURN 

■ 3210 a>: = 31:by = 16:G0SUB 323O:G0SUB 3 
• : 250:GOSUB 3260:jeu<7,12) = 10:RETURN 


[55601 

[1050] 

[5185] 


[3387] 

[10693 

[337] 

[1995] 

[935] 

[1255] 

[1823] 

[419] 

[742] 

[419] 

[1823] 

[4808] 


[3815] 

[2705] 

[2452] 

[416] 

[1823] 

[419] 

[1643] 

[419] 

[1823] 

[2133] 

[1738] 

[4678] 


[4177] 


[2945] 


3220 ax=9:by=17:GOSUB 3230:GOSUB 32 
50:GOSUB 3260:jeu(1,7)=10:RETURN 
3230 PEN 1 : LOCATE ax,by:PRINT trl;c 
1 ! : LOCATE a>: ,by + l : PRINT c2!:PEN 2 : L 
OCATE ax,by: PR INT c3l:L0CATE ax,by+ 
1:PRINT c4l 
3240 RETURN 

3250 PEN 1 : LOCATE a>:, by +1 : PRINT c5! 
:RETURN 

3260 PEN 1 :LOCATE ax+2,by + 2:PRINT C 
HR!(212)+CHRI(201):LOCATE ax+2,by+2 
: P RIN T CHRI(200):LOCATE ax+3,by + l:P 
RINT CHRI(213) 

3270 RETURN 
3280 REM 

3290 REM : : 

3300 REM : DATAS DES 20 TAB : 

3310 REM : : 

3320 REM 

3330 DATA 1023,1023,1023,1023,1023, 
1023,1023,1023,1023,1023,0 


[3316] 

[5610] 

[555] 

[1328] 

[8721 ] 


[555] 

[1823] 

[419] 

[1096] 

[419] 

[1823] 

[2109] 


3340 DATA 1,3,5,148,254,200,224,54, 
0,0,0,25,4 

3350 DATA 1023,529,529,529,529,1023 

,529,529,529,1023,0 

3360 DATA 529,0,0,0,529,0,0,0,0,529 

,0,9,3 

3370 DATA 1023,513,1023,16,16,16,10 
23,581,581,1015,0 

3380 DATA 528,0,1,0,16,0,512,5,64,5 
13 , 0 , 10,1 

3390 DATA 1023,545,765,645,701,693, 

645,765,529,1023,0 

3400 DATA 513,32,128,0,48,48,0,4,0, 

513 , 0 , 11,2 

3410 DATA 1023,1023,1023,1023,1023, 
1023,1023,1023,1023,1023,0 
3420 DATA 0,256,128,64,32,16,8,4,2, 
0 , 0 , 8,1 

3430 DATA 1023,1023,1023,1023,1023, 

1023,1023,1023,1023,1023,0 

3440 DATA 256,8,128,1,32,512,64,2,1 

6,4,0,10,3 

3450 DATA 1023,853,513,1023,513,102 

3,513,1023,513,1023,0 

3460 DATA 0,340,0,32,1,32,0,544,0,3 

3,0,11,2 

3470 DATA 1023,633,585,975,633,585, 

975,633,585,1023,0 

3480 DATA 512,65,0,256,528,0,129,32 

,512,2,0,11,4 

3490 DATA 1023,1023,1023,1023,1023, 

1023,1023,1023,1023,1023,0 

3500 DATA 510,510,510,510,510,510,5 

10,510,510,510,0,80,1 

3510 DATA 1023,951,879,765,1019,983 

,957,891,1015,1023,0 

3520 DATA 34,304,8,65,512,2,8,64,26 

0,0,0,14,2 

3530 DATA 943,681,683,681,763,681,6 
33,681,681,943,0 

3540 DATA 681,0,651,0,82,0,651,0,0, 
631,0,23,4 

3550 DATA 943,697,683,749,697,687,6 
72,703,703,959,0 

3560 DATA 676,49,130,580,9,2,544,12 
8,0,640,0,20,2 

3570 DATA 943,943,943,1023,943,943, 
.943,943,32,1023,0 
3580 DATA 681,0,258,0,640,260,160,5 
21,0,513,0,18,4 

3590 DATA 1023,545,687,761,1021,633 

,765,597,529,1023,0 

3600 DATA 545,0,170,128,260,0,132,8 

4,0,545,0,18,1 

3610 DATA 693,1023,510,1023,510,102 

3,510,1023,510,171,0 

3620 DATA 693,769,0,513,0,513,0,513 

,256,171,0,21,3 ' 

3630 DATA 1023,683,545,883,553,10^3 

,617,803,681,1023,0 

3640 DATA 0,170,0,338,8,258,72,258, 

168,0,0,18,4 

3650 DATA 1023,1023,1023,1023,1023, 
1023,1023,1023,1023,1023,0 
3660 DATA 273,283,277,273,465,0,56, 
32,32,56,0,28,1 

3670 DATA 495,231,627,825,1023,1023 

,926,828,632,240,0 

3680 DATA 264,132,578,289,192,0,130 

,260,520,16,0,19,3 


[1620] 

[2862] 

[1479] 

[2044] 

[1356] 

[2692] 

[1567] 

[2109] 

[1539] 

[2109] 

[1347] 

[2677] 

[1682] 

[2376] 

C1840] 

[2109] 

[2469] 

[2414] 

[1569] 

[1874] 

[1373] 

[2292] 

[1850] 

[1774] 

[2199] 

[1914] 

[1888] 

[2723] 

[3445] 

[2642] 

[1888] 

[2109] 

[2049] 

[2454] 

[2296] 
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3690 DATA 1023,513, 
,645,765,513,1023,0 
3700 DATA 513,0,0,0 
0 8 2 

37 îo'DATA 1023,1023 
1023,1023,1023,1023 
3720 DAT-A 0,1022,10 
,960 
3730 

3740 REM .Vous 
res tableaux. 

3750 
occ 
nt T 


REM 


upe deux lignes.les tableaux sa 
ait dans une matrice de 10 X 10 


02 

1,5 

17, 

,75 

7,693 

T28320 

3760 

REM La numérotation est identi 

[3820] 







que 

a celle utilisée pour redefini 


48 

,48 

, 0, 

,0, 

0,513 

[1204] 

r un 

caractère. 








3770 

REM lere ligne (11 nombres pou 

[8943] 

10 

23, 

io: 

23, 

1023, 

[2109] 

r 1 a 

plate for me),addition des dix 


10 

23, 

o 




ligne 

s de la matrice plus un zéro p 


>8, 

996 

,2' 

020 

, 1022 

[2469] 

our 1 

'algorithme du système 


1 





3780 

REM 2eme ligne (13 nombres)add 

[6764] 






[1924] 

ition 

des dix lignes de la matrice 


c 

r eer ’ 

vos 

prop 

[2631 J 

pour 

les couronnes cette fois ci 


11. Cl 

5, 

ch. 

aqu 

e t a b 

[5675] 

3790 

REM un zéro pour l'algorithme 

[52131 


système puis le nb de couronnes 
de la sortie (entre 1 


du 

et le chiffre 
et 4) 


ADDITIF 

TECHNIQUE 

Variables de base 

C1$ à C7$ : CHR$ redéfinis 
permettant la création du 
damier 

Mart$ : CHR$ redéfinis pour 
le marteau 

Tr$ : active mode transparent 
Nr$ : désactive mode trans¬ 
parent 

DEF FN po(x,y) : transforme 
un iocate x, y en adresse 
écran 


Sp(1) à Sp(4): add mémoire 
des sprites du glups 
Autres variables (vie, fin, sc, 
ta...) : sans commentaire 

Algorithme du dessin des 
tableaux 

Le dessin de chaque tableau 
est tracé dans une matrice 
de 10 x 10. Comme pour un 
CHR$, une numérotation est 
réalisée mais sur 10 lignes et 
10 colonnes au Heu de 8. Ces 
10 nombres sont rangés en 
datas à la fin du programme. 
Les explications sont inclu¬ 
ses dans les REM. 


Les routines en langage 

machine 

Le déplacement des sprites 
dans un décor sans provo¬ 
quer d’effacement, nécessite 
la technique des masques. 
C’est-à-dire : 

A- Sauver en mémoire la por¬ 
tion de décor sur laquelle 
sera affichée le sprite. 

B- Afficher le sprite en AND, 
C- Test de déplacement ? Si 
oui... 

D- Effacement du sprite par 
restitution du morceau de 
décor préalablement sauve¬ 
gardé. 


E- Cacul de la nouvelle posi¬ 

tion du sprite et GOTO en A. 
Pour ce faire, les 3 routines 
suivantes sont utilisées : 
CALL &A000,X,Y : affiche en 
AND à l’adresse écran X, un 
sprite de 4 octets sur 16 
lignes de pixels, se trouvant 
en mémoire à l’adresse Y. 
CALL &A060,X: sauvegarde 
en &A400, une portion de 
l’écran de 4 octets sur 16 
lignes, X étant l’adresse de 
l’octet le plus haut et le plus 
à gauche de cette matrice. 
CALL &A080,X : restitue en 
X, ce qui avait été précédem¬ 
ment sauvegardé. 


PAGE 
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■;AFFICHE SPRITE :- 

A05O 

OO 

NOP 







;CALL &AOOO, Add écran, Add mémoire 

A051 

7C 

LA051: LD 

A, H 

A000 

DD5E00 


LD 

E. (IX+O) 

;Add du sprite 

A052 

C608 

ADD 


A003 

DD5601 


LD 

d. crx+i) 

; dans DE 





A006 

DD6E02 


LD 

L. CIX+2) 

;Add écran 

A 055 

DO 

RET 

NC 

A 009 

DD6603 


LD 

H, < JX+3) 

; dans HL 

A056 

D5 

PUSH 


AO0C 

0610 


LD 

E. 10H 

; 16 lignes de pixels 

A057 

1150C0 

LD 


AOOE 

CD19BD 


CALL 

0BD19H 

; Retour rayon 

A 05.4 

19 

ADD 

HL, DE 

AG11 

F3 


DI 







A012 

C5 

LA012: 

PUSH 

BC 






A0I3 

E5 


PUSH 

HL 






AQ14 

0604 


LD 

B. 4 

;4 octets par ligne 

AQ5B 

DI 



A016 

IA 

LA016: 

LD 

A, <DE> 

; 4 pixels par octets 

A05C 

C9 



A017 

E688 


AND 

88H 






A019 

2806 


JR 

2,LA021 

; Le pixel du sprite n’est 

PAGE 




A01B 

4F 


LD 

C, A 

;affiché que s’il est différent 





A01C 

7E 


LD 

A,(HL) 

; de zéro. Sinon, le sprite se 

A060 

1100A4 

LD 

DE,OA400H 

AO 1D 

E677 


AND 

’ w' 

; retrouverait au milieu d’un 

A063 

DD6E00 

LD 

L.(IX+O) 

A01F 

B1 


OR 

C 

; carré noir. 

A066 

DD6601 

LD 

H,(IX+l) 

AQ20 

77 


LD 

(HL),A 


A069 

0610 

LD 

B, ÎOH 

A021 

IA 

LA'021: 

LD 

A. (DE) 

; \ 

A06B 

C5 

LA06B: PUSH 

BC 

A022 

E644 


AND 

' D’ 


A06C 

E5 

PUSH 

HL 

A024 

2806 


JR 

2,LA02C 


A06D 

0604 

LD 

B. 4 

A026 

4F 


LD 

C, A 

; > Pixel 2 

A06F 

7E 

LA06F: LD 

A.(HL) 

A027 

7E 


LD 

A. <HL> * 


A070 

12 

LD 

(DE),A 

A026 

E6BB 


AND 

OBBH 


A07 1 

13 

INC 

DE 

A02A 

B1 


OR 

C 


A 072 

23 

1SC 

HL 

A02B 

77 


LD 

(HL) , A 

; / 

A073 

ÎOFA 

DJNZ 

LA06F 

A02C 

IA 

LA02C: 

LD 

A.(DE) 

; \ 

A 07 5 

El 

POP 

HL 

A02D 

E622 


AND 

22H 


A076 

CD51A0 

CALL 

0AO51H 

A02F 

2806 


JR 

Z, LA037 


A079 

Cl 

POP 

BC 

AD31 

4F 


LD 

C, A 

,• > Pixel 3 

A07A 

10EF 

DJNZ 

LA06B 

A032 

7E 


LD 

A.(HL) 


A07C 

C9 

RET 


A033 

E6DD 


AND 

ODDH 






A035 

B1 


OR 

C 
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A036 

77 


LD 

(HL),A 

; / 





A037 

IA 

LA037: 

LD 

A. (DE) 

; \ 

A080 

1 100 A4 

LD 

DE,0A400H; 

A038 

E611 


AND 

11H 


A083 

DD6EOO 

LD 

L, (IX+O) ; 

AO 3 A 

2806 


JR 

Z, LA042 


A086 

DD6601 

LD 

H. UJC+1> ; 

A03C 

4F 


LD 

C, A 

; > Pixel 4 

A089 

0610 

LD 

B.10H . ; 

A03D 

7E 


LD 

A. 'HL) 


A08B 

C5 

LAOSB: PUSH 

Bp 

A03E 

E6EE 


AND 

OEEH 


A08C 

E5 

PUSH 

HL ; 

A040 

B1 


OR 

C 


A08D 

0604 

LD 

B. 4 ; 

A041 

77 


LD 

(HL) , A 

; x 

A08F 

IA 

LA08F : LD 

A. (DE) : 

A042 

23 

LA042: 

INC 

HL 


A090 

77 

LD 

(HL) . A : 

.4043 

13 


INC. 

DE 


A091 

23 

INC 

HL 

A044 

10D0 


DJ NZ 

LA016 


A092 

13 

INC 

DE 

A046 

El 


POP 

HL 


A093 

ÎOFA 

DJN2 

LA08F 

A047 

CD51A0 


CALL 

LA051 

; calcul de 1 ’ add de 





A04A 

Cl 


POP 

BC 

; la ligne inférieure 

A096 

CD51A0 

CALL 

0A051H ; 

A04B 

10C5 


DJ NZ 

LA012 


A099 

Cl 

POP 

BC ; 

A04D 

FB 


El 



A09A 

1OEF 

DJ N2 

LA08B ; 

AQ4E 

C9 


RET 



A09C 

C9 

R ET 


A04F 

00 


NOP 








>Add écran + 1 ligne 


/ 


CALL &A050.X : sauvegarde 
d’une partie de -l’écran 


CALL 4A060.X restitution 
d’une partie de l’écran 
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UTILITAIRE 


Hardcopy 

et FENETRE 


M 'utilitaire HARDCOPY 

Ë permet l’impression 

a d’images écran (DMP 

E 2000 et compatible 

EPSON), en respectant 
les nuances spécifiques au 
mode utilisé : 16 en mode 0,4 
en mode 1, et 2 en mode 2 (voir 
exemple joint). 

Entrez les codes hexadéci¬ 
maux du premier listing à l’ai¬ 
de du programme AMSAISIE 
(reportez-vous à son mode 
d’emploi). Spécifiez AOOO 
comme adresse de début et 
sauvez le langage machine par 
l’option « S » sous le nom 
HARDA06C. Si vous ne sou¬ 
haitez pas saisir en une seule 
fois la totalité des codes, mor¬ 
celez votre travail en créant 
plusieurs fichiers (HARDI, 
HARD2, etc). Ces derniers 
devront ultérieurement être 
chargés à ia suite après un 
MEMOR Y &9FFF et sauvegar¬ 
dés ainsi dans un fichier uni¬ 
que : SAVE «HARDA06C 
.BIN », b, &A000,&56B. 


( 6128 ) 



L’utilisation nécessite un 
MEMORY &9FFF : LOAD” 
"H ARDA06C.BIN” et un CALL 
&A06C à la fin du programme 
de chargement ou de création 
d’image (ne pas oublier de 
mettre préalablement l’impri¬ 
mante en fonction et de préci¬ 
ser le mode dans votre 
programme). 

Un exemple d’utilisation vous 
est offert par le second listing 
(dans le cas d’une utilisation 
K7, veillez à sauvegarder celui- 
ci « avant » la routine binaire). 
L’utilitaire FENETRE (troi¬ 
sième listing), qui permet le 
calibrage d’une fenêtre écran 
destinée à l’impression (char¬ 
gement de HARDA06C.BIN 
indu en début de programme 
de chargement ou de création 
d’image. 


Les contours du cadre qui se 
superpose à T affichage, sont 
modifiables par la manette de 
jeu (peu pratique) ou les tou¬ 
ches directionnelles (recom¬ 
mandées). 

— Chaque direction (haut, 
bas, gauche ou droite) déplace 
la limite correspondante du 
cadre dans le sens spécifié. 
Les déplacements inverses 
s’effectuent par appui simul¬ 
tané sur SHIFT/Direction (ou 
FIRE/Direction). 

— COPYpermet la sortie avec 
impression. 

— ENTER ou RETURN autori¬ 
se la sortie sans impression. 
Le clignotement, en action 
pendant la définition des limi¬ 
tes, cesse dès la sortie. 

Philippe Canouil 


Nota : concernant la sortie programme d’édition avec la 
sans impression, il est possible fenêtre définie : 
de sauvegarder comme suit le 

SAVE”FENEA06C.BIN”,b,&A000,&58C 


AOOO s 

96 

A2 

9B 

a n 
n j! 

A0- 

A2 

A5 

A2 

9E 

A008 : 

AA 

A2 

AF 

A2 

B4 

A2 

B9 

A2 

F6 

AO 10: 

BE 

A2 

C3 

A2 

C8 

A2 

CD 

A2 

4E 

AO 18: 

D2 

A2 

D7 

A2 

DC 

A2 

DF 

A2 

A4 

A 0201 

CD 

Al 

D2 

Al 

D7 

Al 

DA 

Al 

94 

A028 : 

2A 

A5 

03 

A5 

DC 

A4 

B5 

A4 

18 

A030; 

8E 

A4 

67 

A4 

40 

A4 

19 

A4 

AE 

A033 : 

F2 

A3 

CB 

A3 

A4 

A3 

7D 

A3 

42 

AO 40: 
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10 MEMORY &9FFF:LOAD "harda06c.bin" [21323 
: BORDER 0:INK 0,0 

20 DIM PAL <14)ï FOR 1=0 TO 14:READ P C3114] 
AUDi INK 1 + 1 , PAL < I) :NEXT 
30 DATA 3,6,15,24,25,22,21,12,13,1, C12603 
2,5,4,14,26 

40 MODE OïCLG 0 : PAPER 0:PEN 14 [1111] 

50 ORIGIN 320,250 [2373 

60 FOR J = 48 TO 108:I=J*PI/52sMOVE C [41333 
OS < I ) *220,SIN ! I)*160-40:DRAW 0,0,J 
MOD 13+lsNEXT 

70 FOR J = 3 TO 23:FOR K = -110 TO 110 [65823 
STEP 220:I=J*PI/26:MOVE C0S(I)*100+ 

K,SINU) *80-20: DRAW 0,0, ( J+ ( <K=110) 

AND 4)-2) MOD 13+lsNEXT K,J 
80 FOR J = 22 TO 26: I=J*PI/52:MOVE CO [59233 
S<I> *50,SIN<I)*120:DRAW 0,0, J MOD 1 
3+lsNEXT 

90 PRINT CHR$(22);CHRf(1); :LOCATE 4 [43593 
, 2: PR INT"*** BONJOUR ***'';LOCATE 7, 

4:PR INT"LES AMIS";CHR$(22);CHR$ < 0) 

100 ORIGIN 112,8,1 12,528,36,8:CLG 1 [ 16823 
4 

110 MOVE 0,0:DRAW 0,28,15:DRAW 420, [29203 
28 : DRAW 420,0:DRAW 0,0 

120 MOVE 20,20:TAG#1:PRINT#1,"* SAL [29333 
UT ! *"j 

130 CALL &A06C [7783 


9500 ‘additif a "HARDA06C.BIN" pour [48123 
paramétrage de fenetre 
9510 ‘ CANOUIL Ph octobre 1987 [13833 

9520 ‘ [1173 

9530 MEMORY 49FFF:ORIGIN 0,0,0,639, [54993 
0,399 : ax =PEEK < &B7E7 ) : POKE <cB7E7,1 1: 

IF PEEK (8<A000) < >8<96 OR PEEK (&A001 ) < 

>&A2 THEN LOAD "bar da06c . b i n " 

9540 IF yma = 0 OR xma = 0 THEN ymi = 177 [37383 
:yma=225:>:mi=276:>:ma = 32S 

9550 MOVE xmi -1 , y m i - 6 ,1 ,1: :DRAW >:ma [69283 


, ymi-6:DRAW xma,yma+2: DRAW xmi~l,ym 
a+2:DRAW xmi-l,ymi-6:xmil=xmi-l:ymi 
l=ymi-6:xmal=xma:ymal=yma+2 
9560 IF INKEY (2) =0 OR J0Y <0> = 2 THEN [17623 
IF ymi-6>=0 THEN ymi=ymi-6:GOSUB 9 
660 

9570 IF INKEY(0)=0 OR JOY(0)=1 THEN [48903 
IF yma+6<=399 THEN yma=yma+6:GOSUB 
9660 

9580 IF INKEY(1)=0 OR J0Y(0)= 8 THEN [37463 
IF xma+4<=636 THEN xma=xma+4:GOSUB 
9660 

9590 IF INKEY(8)=0 OR J0Y <0)= 4 THEN [ 14783 
IF xmi-4>=0 THEN xmi=xmi-4:GOSUB 9 
660 

9600 IF INKEY(2)=32 OR J0Y <0)=1S TH [28993 
EN IF ymi+6<=yma THEN ymi=ymi+6:GOS 
UB 9660 

9610 IF INKEY(0)=32 OR J0Y(0)=17 TH [28203 
EN IF yma~6>=ymi THEN yma=yma-6:GOS 
UB 9660 

9620 IF INKEY <1)=32 OR JOY <0)=24 TH [29423 
EN IF xma~4>=xmi THEN xma=xma-4:GOS 
UB 9660 

9630 IF INKEY(8)=32 OR JOY(0)=20 TH [23463 
EN IF xmi+4<=xma THEN xmi=xmi+4:GOS 
UB 9660 

9640 IF INKEY(6)=0 OR INKEY <18)=0 T [ 14483 
HEN 9670 

9645 IF INKEY(9)=0 THEN cop=l:GOTO [19863 
9670 ELSE cop=0 

9650 GOTO 9560 [3203 

9660 MOVE xmi1,ymi1, 1,1 : DRAW xmal,y [ 127003 
mil:DRAW xma 1,yma1 : DRAW xmi 1 , yma 1 :D 
RAW xmi1,ymi1 :FRAME:MOVE xmi-l,ymi~ 

6: DRAW xma,ymi-6:DRAW xma,yma+2:DRA 
W xmi-1,yma+2: DRAW xmi -1, ymi-6:xmi 1 
.=xmi~l:ymii=ymi-6:xmal=xma:ymal=yma 
+ 2 :RETURN 

9670 ‘ [1173 

9680 xmih = INT<xmi7256):xmib=xmi-(xm [ 108403 
ih*256):x mah = INT (xraa/256):xmab=xma- 
<xmah*256):ymih=INT{ymi7256):ymib=y 
mi-(ymih*256): y m a h = IN T(yma/256):yma 
b=yma-<ymah*256) 

9690 POKE ?<A141,S<C3: POKE &A142,&6C: [66873 
POKE $<A 143, &A5 : POKE «<A 1 44,0 : POKE $<A 
145,0: FOR i=S,A56C TO A 5 8 B : READ z:P 
OKE i ,z:NEXT 

9700 POKE &A147,x mi b : POKE & A14 8,x mi [94473 
h: POKE &A0FB, x mi b : POKE StAOFC ,xmi h : P 
OKE & A134,xmab:POKE &A135, xmah:POKE 
&A0F5, y mab : POKE &A0F6 , ymah : POKE $<A 
580,ymih :POKE &A585,ymib 

9710 xx1=xma-xmi :xx1h = INT(xx17256): [74833 
x x1b = xx1 - (x x1h*256): IF x x1 b > = 12S AN 
D xxlb<256 THEN xxih=xx1 h + 1 :xxr = 257 . 
-xxlb:xxlb=0 ELSE xxr=0 

9720 POKE ?(A56E, x x r : POKE ïcA574,xxr: [8385 3 
POKE 8<A191 , xx 1 b : POKE ?<A 1 96 , x x 1 h : POK 
E &B7E7, ax : CLEAR I NF'UT : LOCATE 1,24: ' 

IF cop = 0 THEN END ELSE CALL ?<A06C:E 
ND 

9730 DATA $<c5, «<3e ,0,8<e6,&f f , S<28, ?<09 [53093 
,&06,$f00,&3e,0,&cd,&9b,&ai ,lilO,îif9, 
ï<c 1 , St23, S(7c , î,f e , 0 , î<20 , St04 , S<7d , S<f e, 0 
,Std8,St2b,Stc3,St45,8tal ,0 
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LA BECANE EN FOLIE 

i 


; adis laborieux et frin¬ 
gant, votre ordina¬ 
teur semble en proie 
à un mal mystérieux 
mettant en doute le 
bien fondé de sa réputation. 
Appelé de toute urgence au¬ 
près de l’illustre patient, un 
membre microscopique du 
CROTTE (Centre de Répara¬ 
tion d'Ordinateur Teigneux 
et à Touches Explosives) ne 
tarde pas à découvrir la 
source du mal : les circuits 
pollués de microbes et les 
errances morbides de belli¬ 
queux protons à têtes cher¬ 
cheuses, perturbent à l’évi¬ 
dence le précieux méca¬ 
nisme qu ’il con vient d'assai¬ 
nir sans tarder. 

Sauvez le premier listing 
sous un nom de votre choix 
(u BECANE » semble appro¬ 
prié). Lancez les deuxième et 
troisième listings afin de 
créer les routines binaires 
BECANE1.BIN et 

BECANE2.BIN (vérification 
et sauvegarde automati¬ 
ques) nécessaires au bon 
fonctionnement du program¬ 
me principal. Sauvez finale¬ 
ment le quatrième listing 
(règles + programme princi-, 
pal) sous le nom h BECA¬ 
NES» 



10 



[6693 

20 

■## 

LA 

BECANE 

U 


[14913 

30 

'## 


EN FOL I 

E ## 


[6933 

40 




— ## 


C14193 

50 


GIB0N J-Pier 

re ## 


[16143 

60 

## 

0 

1.10.1986 

## 


17463 

70 

#################### 


[6693 

80 

DEFI 

NT 

à ~£ 



[5533 

90 

MODE 

1: 

BORDER 0: 

INK 0,0:INK 1, 

26 

[27363 

: INK 2, 

14: 

INK 3,7 




100 

PEN 

2: 

LOCATE 12 

, 2:PR I NT”GIBON 

J 

[17223 

ean 

-Pierre 

II 




110 

PEN 

1: 

LOCATE 13 

,5:PRINT”P r e 

s 

[22893 

e 

n t 

e” 





120 

0UT 

S<BC00,6: DUT 

&BD00,24 


[902 3 

130 

PRINT 

CHRF <2.3) CHRP <33: LOCATE 

l, 

[34303 


25:PR INT"LA BECANE 


140 x = 30: y=180:GOSUB 270 C711I 

150 LOCATE 1,25:PRINT”EN FOLIE " [24033 

160 >:=230: y=80: GOSUB 270 [11333 

170 LOCATE 1 ,1 : PRI NT CHRf(23)CHRI(0 [9683 
) 

180 LOCATE 1,25: PR I NT CHRK20) [16833 

190 0UT &BC00,6: 0UT S<BD00,25 [9013 

200 INK 3,9,7 [783 

210 PEN 2:L0CATE 10,25 : PR I NT 11 1 e pro [3351 ] 
gramme ee charge” 

220 MEMORY &7FFF [1503 

230 LQAD" ibecanel.bin" ,&8000 [15463 

240 L0AD" ibecane2.bin" ,$<9000 [11703 

250 RUN" ! becane3, bas-" [12183 

260 '- [8783 

270 FOR 1=0 T0 140 STEP 2 C 1354J 

280 FOR j=0 T0 14 STEP 2 [7653 
























La BECANE EN FOLIE 


290 IF TEST < i , j ) THEN 310 Cl 044 3 

300 NEXT:NEXT: RETURN C 14353 

310 PLOT >i +i *3,y + j *6,1 [9693 

320 DRAWR 0,14:DRAWR 8,0:DRAWR 0,-1 C20123 
4:DRAWR -3,0 

330 PLOTR 2,2,3 C4803 

340 DRAWR 0,10:DRAWR 4,0:DRAWR 0,-1 [2174] 
0:DRAWR -2,0:DRAWR 0,8 

350 GOTO 300 ' C 504 3 



10 ' Créateur de 
20 MEMORY $<7FFF:1 
30 FOR i =$<8000 TO 
40 s=0: FOR j = i TO 
50 c = VAL < " $< " + a $ ) : 
60 READ eI: IF s<> 


70 

1=1 + 

80 

SAVE" 

90 

DATA 

100 

DATA 

110 

DATA 

120 

DATA 

130 

DATA 

140 

DATA 

150 

DATA 

160 

DATA 

170 

DATA 

180 

DATA 

190 

DATA 

200 

DATA 

210 

DATA 

220 

DATA 

230 

DATA 

240 

DATA 

250 

DATA 

260 

DATA 

270 

DATA 

280 

DATA 

290 

DATA 

'300 

DATA 

310 

DATA 

320 

DATA 

330 

DATA 

340 

DATA 

350 

DATA 

360 

DATA 

370 

DATA 

380 

DATA 

390 

DATA 

400 

DATA 

410 

DATA 

420 

DATA 

430 

DATA 

440 

DATA 


BECANE 1.BIN 
= 90 

$<6118 STEP 8 
i+7 !READ Ai 
POKE j ,c:5=s + c:NEXT 
VAL < "$< " +sf ) THEN PR INT 
; 1:STOP 


BIN ", b 
i DD,5E, 
:,02,CD 
),5E,00 
i,06,04 
I,10,F8 
],EB,E1 
),56,03 
;,DD,6E 
>,00,19 
1,23,46 
),AO,C9 
j , 0 4 , D D 

i, 05,05 
1,46,04 
1,04,04 

j, 00,DD 
5,05,05 
5,9 0 , C 8 
:,02,04 
1,04,04 
), 3E,FF 
1,32,11 

■, 00,DD 
), 1D,BC 
, 50,00 
. ,CO,ED 
1,21,Fl 
,FO,DO 
,C5,11 
1,BO,Cl 
,EO,ED 
1,21,Fl 
, F 0, F 0 
,11,FO 
i,C9,00 
1 , 00,00 


,$<8000 
04,DD, 
,1D,BC 
, E B, F 3 
, 4 E , 1A 
, D1,E5 
, C1 ,10 
, DD,5E 
,00,CD 
, AF, 46 
,BO,23 
,AF,32 
,7E,06 
,05,05 
,DD,7E 
,04,90 
, 7 E , 0 2 
,05,05 
,D8,DD 
,04,04 
,04,04 
,32,10 
,AO,DD 
,56,03 
, 7E, 32 
, C 5,11 
, B 0 , C1 
, C8,ED 
,21,Fl 
,FO,D8 
,C5,11 
,80,Cl 
, ES, ED 
,21,Fl 
,F8,21 
,00,00 
,00,00 


., «cl 18 

66,3BA 
‘,DD,3D3 
,06,376 
,A9,2C5 
,EB,3F1 
,E9,535 
,02,437 
,1D,379 
,BO,328 
,46,298 
,10,33C 
,05,32D 
,90,083 
,06,428 
,C8,170 
,05,355 
,05,028 
,46,362 
,04,16D 
,04,020 
, AO, 447 
,66,32D 
,DD,35F 
,11,2C7 
,FO,380 
,C5,5B5 
,80,540 
,DO,539 
,21,51D 
,FO,5ED 
,C5,5F5 
,80,580 
,FO,579 
,Fl,569 
,00,35E 
,00,000 


’Er 



10 ' Créateur de BECANE2.BIN 
20 MEMORY S< 8 F F F : 1 = 90 
30 FOR i =«<9000 TO $<9350 STEP 8 
40 5=0:FOR j = i TO i+7:READ a$ 

50 c=VAL<"V’+a*>:POKE j,c: 5 =s+c:NEXT 
60 READ 5$: IF sOVAL ("ît"+s*) THEN PRINT 
reur DATAs 1igne” ; 1 : STOP 
70 1=1+ 10:NEXT 

80 SAVE" IBECANE2.BIN", b,$<9000,$<350 
90 DATA 10,50,00,00,30,70,AO,00,1 AO 
100 DATA 30,30,AO,00,30,30,AO,40,240 
110 DATA 10,30,AO,40,00,30,AO,80,270 
120 DATA 00,10,E4,CC,01,12,44,80,2A3 
130 DATA 03,12,46,CC,03,03,46,CF,242 
140 DATA 01 ,03,44,00,51,51,44,C-F, 1FD 
150 DATA A2,51,00,CC,A2,51,00,00,282 
160 DATA A2,00,A2,00,51,00,51,00,1E6 
170 DATA 00,00,00,00,00,00,00,00,000 
180 DATA 00,00,00,00,00,00,00,40,-040 
190 DATA 00,00,00,40,00,00,00,80,OCO 
200 DATA 00,00,44,CC,01,03,44,8C,1E4 
210 DATA 03,12,46,CC,03,30,46,CF,26F 
220 DATA 10,30,E4,00,30,30,E4,CF,337 
230 DATA 30,30,AO,CC,B2,71,00,00,2EF 
240 DATA A2,00,A2,00,51,00,51,00,1E6 
250 DATA 00,00,AO,20,00,50,BO,30,1 FO 
260 DATA 00,50,30,30,80,50,30,30,1E0 
270 DATA 80,50,30,20,40,50,30,00,1E0 
280 DATA C-C, D8,20,00,4C , 88,21,02,2BB 
290 DATA CC,89,21,03,CF,89,03,03,207 
300 DATA 00,88,03,02,CF,88,A2,A2,328 
310 DATA C C, 0 0,A 2,51,0 0,0 0,A 2,51,2 B 2 
320 DATA 00,51,00,51,00,A2,00,A2,1E6 
330 DATA 00,00,00,00,00,00,00,00,000 
340 DATA 00,00,00,00,80,00,00,00,080 
350 DATA 80,00,00,00,40,00,00,00,OCO 
360 DATA CC,88,00,00,4C,88,03,02,220 
370 DATA CC,89,21,03,CF,89,30,03,304 
380 DATA 00,D8,30,20,CF,D8,30,30,32F 
390 DATA CC,50,30,30,00,00,62,71,29F 
400 DATA 00,51,00,51,00,A2,00,A2,1E6 
410 DATA 00,FC,A3,00,54,F3,F6 , FC,4DD 
420 DATA F9,F6,82,00,F9,E9,20,00,473 
430 DATA FC,C3,C3,00,41,C3,82,00,408 
440 DATA 41,82,00,00,00,C3,82,00,208 
450 DATA 00,04,00,00,00,FO,AO,CO,254 
460 DATA 00,El,C3,82,00,FO,AO J 00,386 
470 DATA 00,FO,AO,00,00,50,00,00, 1E0 
480 DATA 00,50,00,00,00,50,AO,00,140 
490 DATA 00,FC , A8,00,54,F3,FC,FC,4E3 
500 DATA F9,F6,82,00,F9,£9,20,00,473 
510 DATA FC,C3,C3,00,41,C3,82,00,408 
520 DATA 41,82,00,00,00,C3,82,00,208 
530 DATA 00,04,00,00,00,FO,AO,CO,254 
540 DATA 00,El ,C3,82,00,FO,AO,00,3B6 
550 DATA 00,FO, AO,00,00,FO,AO,AO,3C0 
560 DATA 50,AO,FO,AO,50,00,50,00,320 
570 DATA 00,54,FC r 00,FC,F9,F3,A8,4E0 
580 DATA 00,41,F9,F6,00,10,D6,F6,40C 
590 DATA 00,C3,C3,FC,00,41,03,82,408 
600 DATA 00,00,41,82,00,41,C3,00,1C7 
610 DATA 00,00,08,00, CO, 50, FO, 00,208' 

620 DATA 41,03,02,00,00,50,FO,00,316 
630 DATA 00,50,FO,00,00,00,AO,00,1E0 
640 DATA 00,00,AO,00,00,50,AO,00,190 
650 DATA 00,54 , FC, 00,FC,F9,F3,AB,4E0 
660 DATA 00,41,F9,F6,00,10,D6,F6,40C 
670 DATA 00, C3 , C3 , FC-, 00,41 , C3,82,408 
680 DATA 00,00,41,82,00,41,C3,00,1C7 
690 DATA 00,00,08,00,CO,50,FO,00,208 


’Er 


30 













700 

DATA ■ 

710 

DATA « 

720 

DATA ! 

730 

DATA i 

740 

DATA ! 

750 

DATA 

760 

DATA ■ 

770 

DATA' i 

780 

DATA 

790 

DATA 

800 

DATA 1 

810 

DATA 

820 

DATA 

830 

DATA 

840 

DATA 

850 

DATA 

860 

DATA 

970 

DATA 

830 

DATA 

890 

DATA 

900 

DATA 

910 

DATA 

920 

DATA 

930 

DATA 

940 

DATA 

950 

DATA 

960 

DATA 

970 

DATA 

980 

DATA 

990 

DATA 

1000 

DATA 

1010 

DATA 

1020 

DATA 

1030 

DATA 

1040 

DATA 

1050 

DATA 

1060 

DATA 

1070 

DATA 

1080 

DATA 

1090 

DATA 

1100 

DATA 

1110 

DATA 

1120 

DATA 

1130 

DATA 

1140 

DATA 

1150 

DATA 


■1,03,02,00,00,50,FO,00,316 
10,50,FO,00,50,50,FO,00,2D0 
10,FO,50,AO,00,AO,00,AO,370 
iO,FC,FC,A8,54,F3,F3,F6,5DO 
14,FC,FC,FC,41,86,3C,C3,55E 
tl,C3,C9,C3,41,41,C9,41,41C 
•1,82,00,C3,00,C3,C3,82,38E 
10,00,08,00,00,D2,FO , 82,24C 
H,D2,F0,C3,41,50,FO,41,488 
U , D 2 , F 0 , C 3,0 0 , D 2, F 0,8 2,5 0 A 
>0,50,50,00,00,FO,50,AO,280 
>0,14,28,00,00,CC,CC,00,1D4 
)0,14,28,00,44,CC,CC,88,2A0 
>0,14,28,00,CC,CC,CC,CC,36C 
>0,14,28,00,44,CC,CC,88,2A0 
>0,14,28,00,00,CC,CC,00,1D4 
>0,14,28,00,00,30,30,00,09C 
>0,30,30,00,04,OC,OC,08,084 
>4,OC,OC,08,CF,CF,CF,CF,360 
:F,3A,45,CF,8A,8A,45,45,40B 
;F,8A,45,CF,14,00,00,28,2A9 
; 4,28,14,28,00,3C,3C,00,OFO 
.2,14,28,11,22,6C,9C,11,1AA 
ÏC,CD,CE,3C,3C,00,00,3C,28B 
.4,00,00,28,14,CD,CE,28,213 
;4,6C,9C,28,14,14,28,28,1BC 
14,00,00,28,33,00,00,33,0A2 
>0,00,44,00,00,00,01,00,045 
>4,00,01,00,01,00,02,44,08C 
>1,00,02,01,00,02,02,02,00A 
83,01,CO,00,03,47,CF,02,264 
00,45,CF,44,00,42,81,00,21B 
01,00,02,02,88,01,88,01,117 
00,01,00,44,00,88,00,00,OCD 
00,00,00,00,00,00,00,00,000 
20,10,88,00,88,44,00,10,194 
98,44,00,CC,44,00,01,00,1ED 
01,02,02,10,00,02,02,44,05D 
20,02,88,03,88,00,44,02,178 
01,00,00,00,00,02,01,00,004 
01,02,02,02,89,00,02,CC,15E 
98,00,88,10,00,44,20,00,194 
00,00,00,00,00,00,00,00,000 
00,00,00,00,00,00,00,00,000 
00,00,00,00,00,00,00,00,000 
00,00,00,00,00,00,00,00,000 
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[669] 

'## La becane 

## 

[1491J 

'## en Polie 


[693 3 

'##- 

-## 

[14193 

## GIBON J-Pierre 

## 

[16143 

'## 01.10.1986 

## 

[746] 

■I###############»### 

[669] 

' 


[1173 

' ****###**##**##**»** 

[6653 

'* initialisation * 

[9361 

'******************** 

[6653 

DEFINT a-z 


[553 3 

DATA *9000,*9040, 

*9080, 

, *90CO,*9 [3290 3 


,*9140,*9180,*91 CO,*9200,*9240 , * 


9280,*92C0,*9300 

140 RESTORE 130: DIM 5pr (12.) 

150 FOR i=0 TO 12 : READ spr(i):NEXT 
160 ENV 1,15,-1,1:ENV 2,1,-2,1,13, - 
1,4:ENV 13,15,1,1,1,0,5,15,-1,2 :ENV 
14 , 1,5,1 ,10,1 ,4,5 , -3,. 1 : ENV 15,1,5, 
1,10,1,4,5,-3,1 

170 ENT 1,10,-30,1,10,10,lîENT 2,60 
,-20,1 SENT 3,60,20,1:ENT 4,40,-3,1: 
ÉNT 5,200,1,1:ENT 13,20,-1,1,1,0,10 
,60,1,1:ENT 14,40, -10,1 :ENT 15,5,-2 
0,1,60,10,1 

180 SYMBOL 255,6,8,60,102,126,96,60 
190 '***#****•**#*#*•***#*# 

200 '* dessin circuits * 

210 '******************** 

220 SYMBOL 252,60,60,60:SYMBOL 253, 
0,0,0,0,0,60,60,60:SYMBOL 254,0,0,2 
24,224,224,224 : SYMBOL 255,0,0,7,7,7 
,7 

230 INK 0,0:INK 1,24:INK 2,26:INK 3 
, 9 : BORDER 1 : MODE 1 

240 PEN 0:PAPER 3:L0CATE 1,11 : PR I NT 
CHR$(20) 

250 FOR i=3 TO 35 STEP 8:WIND0W#l,i 
,i+2,12,18:CLS#1 :NEXT 
260 WINDOWS,13,27,22,24:CLS# 1 
270 PEN 2:FOR i=2 TO 34 STEP 8:FOR 
j=12 TO 18:LOCATE i , j: PR INT CHR*(25 
5) :LOCATE i +4 , j: PR I NT CHRf < 254):NEX 
T j,i 

280 FOR i = 13 TO 27:L0CATE i , 21 : PR IN 
T CHRf < 253):LOCATE i , 25 : PR INT CHR*< 
252):NEXT 

290 PAPER 0:LOCATE 16,23:PR INT"CPU 
Z80 A" 

300 FOR i=4 TO 38 STEP 8:LOCATE i , 1 
4: PRINT CHR*<168):LOCATE i , 15: PRINT 
CHR$(169):LOCATE i,16:PRINT C H R î < 1 
70):NEXT 

310 DATA -24,216,0,216,0,0,230,0,23 
0,8,-24,200,16,200,16,216,-24,134,6 
,184,6,4,214,4,214,8,-198,8,12,8,12 
,168,24,168,-24,152,18,152,18,70,19 

8.70, -24,136,18,136,-24,120,24,74,2 
14,74,214,70 

320 DATA -230,70,230,78,96,78,96,12 
0,86,120,-246,70,246,82,136,82,136, 
136,152,136,-152,120,142,120,142,86 
,262,86,262,70,-278,70,278,90,224,9 
0,224,120,214,120,-230,136,266,136, 

266.94.294.94.294.70, -310,70,310,98 
,272,98,272,120,280,120 

330 DATA -326,70,326,106,350,106,35 
0,120,342,120,-342,70,342,102,390,1 
02,390,136,408,136,-408,120,396,120 
,396,98,358,98,358,70,-374,70,374,9 

4.478.94.478.120.470.120, -390,70,39 
0,90,518,90,518,136,536,136,-406,70 
,406,86,524,86,524,120,536,120 

340 DATA -422,70,422,82,602,82,602, 

120.598.120, -598,136,608,136,608,8, 
422,8,-406,8,406,4,614,4,614,152,59 
8,152,-598,168,620,168,620,0,390,0, 
390,8 ,-59B ,184,640,184,-598,200,640 
,200,-16,216,16,230,94,230,94,216,8 
6,216,1,1 

350 DATA 64,16,34,48,18,32,32,20,30 
,16,22,23,0,24,26 
360 RESTORE 310 


[15323 

[20803 

[61133 

[78873 

[17583 

[6653 

[1352] 

[6653 

[58863 

[19763 

[1896] 

C30493 

[17753 

[7022] 

[5858] 

[16753 

[57303 

[78703 


[12184] 


[10776] 


[111183 


[25683 

[7493 


31 








La BECANE EN FOUE 


370 READ a,bsIF a<0 THEN MOVE -a,b: 
GOTO 370 

380 IF aOl THEN DRAW a ,b , 1 : GOTO 37 
0 

390 FOR i=246 T0 374 STEP 16: PLOT i 
,0:DRAW i ,8:NEXT 

400 FOR i=144 TO 528 STEP 128:GRIGI 
N i ,216 

410 PLOT 0,0:DRAWR 0,14:DRAWR 78,0: 

DRAWR 0,-14:DRAWR -8,0 

420 RESTORE 350:F0R j=l TO 5 

430 READ a, b, c:PLOT 8,-a:DRAWR -b,0 

.-DRAWR -16,-16: DRAWR -c,0:NEXT j , i 

440 0RIGIN 0,0 

450 ******************** 

460 '* menu * 

470 '******************** 

480 WINDOW 1,40,1,10:CLS 

490 LOCATE 10,3:PRINT"02""1 Q1V0IR 

LE PARCOURS” 

500 LOCATE 10,5: PRINT "02 ""2 01 00IR 
LES INSTRUCTIONS" 

510 LOCATE 10,7:PR INT”02""3 01 COMME 
NCER LE JEU” 

520 WHILE INKEY$< >"":WEND 
530 el= INKEY-f: IF e*=”” THEN 530 
540 IF et= "1" THEN CLS:GOTO 610 
550 IF e*="2” THEN 1150 
560 IF e*="3" THEN 1650 
570 GOTO 520 

580 ' ******************** 

590 '* parcoure * 

600 ********************* 

610 ci=l:x=390:y=8:dx=0:dy=-2:G03U8 
750:wi=35:GOSUB 970 
620 x = 536 :y=136 :dx = - 2 :dy = 0:GOSUB 75 
0 

630 ci=2:x=374:y=70:dx=0:dy=2:GOSUB 
750:wi=27:GOSUB 970 
640 x=40B:y=136:dx=-2:dy=0:GOSUB 75 
0 

650 ci=3:x=326:y=70:dx=0:dy=2:GOSUB 
750:wi=19:GOSUB 970 
660 x=280: y = 136: dx-=-2: dy = 0: GOSUB 75 
0 

670 ci=4:x=278:y=70:dx=0:dy=2:G0SUB 
750:wi=11:GOSUB 970 
680 x=152:y=136:dx=-2:dy=0:GOSUB 75 
0 

690 ci=5:x=230:y=70:dx=0:dy=2:G0SUB 
750:wi=3:GOSUB 970 
700 x=24:y=184:dx=-2:dy=0:GOSUB 750 
710 GOTO 480 

720 ********************* 

730 '* déplacements * 

740 ********************* 

750 FOR 2 = 1 TO 400:NEXT: SOUND 1,200 

,4,7:IF dx = 0 THEN 810 

760 IF TEST (x +dx,y)=2 THEN 360 " Bo 

rne circuit intégré 

770 IF TEST (x +dx ,y ) < > 1 THEN 870 ' C 

hangement direction 

780 CALL &BD19: PLOT >:, y , 1 

790 x=x+dx:PLOT x,v,0 ■ 

800 GOTO 760 

810 IF TEST(x,y + d y)=2 THEN 860 ' Bo 

rne circuit intégré 

820 IF TEST(x,y+ dy1< >1 THEN 870 ' C 

hangement direction 

830 CALL î<BD 19: PLOT x ,y , 1 


116131 

C2193I 

[2638] 

[1794] 

[1450] 

[1092] 

[3442] 

[298] 

[665] 

[551 ] 

[665] 

[15953 

[2737] 

[32623 


[1786] 

[569] 

[1249] 

[8123 

[778] 

[ 413 ] 

[665] 

[993] 

[6653 

[32273 


[29023 


[3164] 

[2354] 


[33173 


[19303 

[13413 


122583 


[30923 


[21533 

[3733 

[6653 

[9863 

[6653 

[39313 

[35213 


[36033 


[402 3 
[19533 
[4133 
[31243 

[24073 

[402 3 


840 v=y+dy:PLOT x,y,0 
850 GOTO 810 


860 PLOT x,y,1:SOUND 
R N 

870 IF d x = 0 THEN 910 
880 dx=0 

890 IF TEST(x,y-2> = 1 
0 810 

900 IF TEST(x,y + 2) = 1 
810 

910 d y = 0 

920 IF TEST<x-2,y)=1 
0 760 


1 ,100,4,7:RETU 


THEN dy=-2:GOT 
THEN dy=2:GOTO 

THEN dx=-2:GOT 


930 IF TEST(x + 2,yi = 1 THEN dx=2:G0T0 
760 

940 ********************* 

950 '* tableau * 

960 '******************** 

970 PEN 2:LOCATE 17,6:PRINT“Circuit 
"■ci 

980 FOR z=l TO 400:NEXT 
990 FOR i=1 TO 11 

1000 fond=fond XOR 2:WINDQW #l,wi,w 
i+2,12,18:PAPER #1,fond :CLS#1 
1010 SOUND 1, INT(R N D * 2 0 0 0)+50,INT(R 
ND*12)+ 1,0,1,, INT(RND*31)+1 
1020 SOUND'1,0,8 
1030 NEXT 

1040 WINDOW #1 ,wi,wi+2,12,18:PAPER 
#1,0 :CLS#1 
1050 PEN #1,2 

1060 LOCATE # 1 ,2,3:PRINT #1,CHR*<16 
8 ) 

1070 LOCATE #1,2,4s PRINT #l,CHRf(16 
9) 

1080 LOCATE #1,2,5:PR INT #l,CHRf<17 
0) 

1090 FOR 2=1 TO 600:NEXT 
1100 LOCATE 1,6:PR INT CHR*(1S) 

1110 RETURN 

1120 '******************** 

1130 '* instructions * 

1140 ********************* 

1150 MODE 2 

1160 INK 1,0:INK 0,13:BORDER 13 
1170 PRINT" INSTRUCTIONS :”:PRI.NT 
1180 DATA "Vous etes membre du CRÛT 
TE","( Centre de Réparation d'Ordin 
ateurs Teigneux et a Touches Explos¬ 
ives )", ,"Votre ordinateur est ent 
ierement déglingué 1 D'ailleurs, il 
n'est pas le seul ) " 

1190 DATA "Apres tout, dans ce jeu 
(génial!) , vous ne sere 2 qu'un neu 
tron ! MINUS !!","£t vous devrez la 
refoutre sur pied, cette saî... de 
becane, en zigouillant" 

1200 DATA "tous les affreux rrucrob^ < 
s qui occupent les circuits intégré’ 


1210 DATA , "Enfin bref, tout ca po 
ur vous dire”,"de faire quand-meme 
attention aux protons baladeurs a t 
ete chercheuse", "et a bien d'autres 
fantaisies de l'auteur !” 

1220 DATA ,"Un teleporteur vous pe 
rmettra de passer d'un circuit a un 
autre. " 

1230 DATA /'Mais maintenant, passe 
z a l'acte. Non non, pas celui-là v 


C702 3 
[306 3 
[20913 

[7253 

[613 

[23123 

[25273 

[493 

[17933 

[13233 

[6653 
[378 3 
[6653 
[25473 

[15303 

[-3143 

[36663 

[29773 

[10693 
[350 3 
[22083 

[4723 

[19293 

[21803 

[25933 

[12303 

114653 

[5553 

[6653 

12143 

[6653 

[5133 

[13843 

[22273 

[ 1S6713 


[119613 


[63893 

1156323 


♦ .r -- 
. i J J 


[151733 











icieux !","Je voulais dire: au boul 


1570 

ot !", ,"Fais gaffe quand-meme ! He 


1580 

in ! Ca s'ra pas d'là tarte, mon ga 


1590 

rs i" 


1600 

1240 DATA 

[183] 

1610 

1250 RESTORE 1180 

[747] 

1620 

1260 READ a $ : IF a$="*" THEN 1330 

[1003] 

PAGE 

1270 FOR i = 1 TO LEN !a$) 

[7911 

1630 

1280 PRINT HID*(a*,i ,1) ; 

[1271] 

1640 

1290 SOUND 1 , INTfRNDMOÔ) t-20, i ,5 

[1658] 

1650 

1300 FOR ‘z = l TO 70:NEXT 

Cl 136] 

1660 

1310 NEXT:PRINT 

[311] 

1670 

1320 GOTO 1260 

[351] 

1630 

1330 LQCATE 18,25 : PR I NT"Quand vous 

[5323] 

1690 

voulez pour appuyer sur une touche 


i.) , 

i » 


1700 i 

1340 WHILE INKEY$< >" " : WEND: CALL ?<BB 

[2497] 

<149) 

06 


1710 

1341 MODE i: BORDER 0:INK 0,0:INK 1, 

[2108] 

1720 

H: INK 2,26:INK 3,6 


1730 

1342 PRINT"Les touches utilisées so 

[3868], 

1740 i 

nt: “ 


1750 

1343 PEN 3; LOCATE 15,5:F'RINT CHRt ( 2 

[2067] 

1760 

42) 


0 

1344 LOCATE 19,5:PRINT"COPY" 

[2009] 

1770 

1345 LOCATE 26,5:PRINT CBR*(243) 

[1331 ] 

1460 

1346 PEN 2:LOCATE 10,7: PR INT"gauche 

[2916] 

1780 

sauter droite" 


1790 

1347 PEN 1 :LOCATE 1,10:PRINT"Deroui 

[2661] 

1800 

ement du jeu:" 


1810 

1343 PEN 3:PRINT 

[747] 

1820 

1349 PRINT" Une fois les microbes 

[ 1 1838] 

1830 

abattus,"," un teleporteur apparai 


1840 

ira sur l'écran, vous permettant a 


1850 

insi de passer au"," circuit suiva 


1860 

nt. " 


1870 

1350 PRINT:PRINT" Faites attention 

C11410] 

1330 

au proton baladeur car sa vite 


1890 

S5e accéléré en fonction" , " des ta 


1900 

bleaux {circuits). " 


1910 

1358 WHILE INKEYÎO"": WEND: CALL ?<BB 

[2497] 

1920 

06 


1930 

1359 GOTO 1390 

[421 ] 

1940 

1360 DATA 0,24,20,6,2,11,18,12,15,1 

[1855] 

1950 

6,17,26,8,13,4,3 


1960 

1370 RESTORE 1360:FOR i=0 TO 15:REA 

[1429] 

1970 

D a 


1980 

1380 INK i , a : NEXT : RETURN 

[1419] 

1990 

1390 BORDER 0:M0DE OsGOSUB 1360 

[1377] 

2000 

1400 PEN 9: PRINT "PERSONNAGES ?< QBJE 

[2275] 

2010 

TS" 


2020 

1410 p=4 : s=p : x=30:v=152:z=200:GOSUB 

[2942 ] 

2030 

1460 


2040 

1420 PEN 1 : LOCATE 7,8:PRINT"VOUS" 

[1654] 

2050 

1430 p ~0 : s=p : x-30 : y=12u : z-200 : GOSUB 

[3093] 

2060 

1460 


2070 

1440 LOCATE 7,12:PRINT"UN PROTON" 

[1107] 

2080 

1450 GOTO 1540 

[3913 

2090 

1460 CALL S<3000,0 , y , spr < s ) 

[1015] 

2100 

1470 FOR i=0 TO X STEP 2 

[ 772] 

2110 

1480 p = p XOR 1 : IF p = 4 THEN SOUND 1, 

[1723] 

2120 

0,1,4,,, 1 0 


2130 

1490 CALL '(SOOO, i , y , spr ( s) 

[516] 

2140 

1500 CALL 3(8000, i +2, y , spr (o ) 

[10553 

2150 

1510 FOR t=l TO z : NEXT 

[13721 

2160 

1520 s=p : NEXT 

[530] 

2170 

1530 RETURN 

[555] 

2180 

1540 FOR z — 1 TO 1500:NEXT 

[14943 

2190 

1550 CALL 3(8000,32,38,3(9230 

[ 1150] 

2200 

1560 LOCATE 7,16:PRINT"UN MICROBE" 

[18483 

2210 


,20:PR INT"TELEPORTEUR" 


, 52,spr(8) 


ES 


début jeu 


=60:G0SU8 


GOTO 2290 

SOUND 1,300,20,4, ,1 : RE 
'******************** 

1 * disparition * 


i=0 TO z STEP 


t = l TO 60s NEXT; NEXT 


>:,y-i ! DRAWR 30,0,9 


:1 TO 60: NEXT:NEXT 

'■HO” : FOR i =z TO 0 STEP-2 


FOR t=i TO 60:NEXT:NEXT 
SOUND 129,60,70,5,,3:RE1 
’******************** 

'* apparition * 
'******************** 


i =0 TO z STEP 2 
■ y-i: DRAWR 30,0,7 
t=l TO 60:NEXT:NEXT 
. &8000, a>!, ay , spr (8 ) 
i=z TO 0 STEP-2 


[967] 

[15393 

[347] 

[1267] 

[1099] 

[3688 J 

[2005] 

[423] 

[665] 

C303] 

[665] 

[1154] 

[1667] 

[2905] 

[2813] 

[1077] 

[1074] 

[350] 

[1658] 

[20851 

[3293] 

[1264] 

[1236] 

[1594] 

[345] 

[1464] 

[665] 

[1214] 

[665] 

[1084] 

[1506] 

[988] 

[1393] 

[1834] 

C742] 

[988] 

[1373] 

[1834] 

[708] 

[988] 

[13911 

[1834] 

[1555] 

[988] 

[1382] 

[1834] 

[1929] 

[665] 

[699] 

[665] 

[1084] 

[1506] 

[988] 

[1393] 

[1834] 

[742] 

[988] 

[1373] 

[1834] 

[708] 

[ 1391 ] 

[1834] 

[1792] 

[742] 

[988] 


33 











LA BECANE EN FOLIE 


[14971 

OSUB 3210 


[13341 

2690 a x = 15 0 : a y = 8 ü : x = 8 : y = 3 6 6 : z = 3 6 : G 0 

[2292] 

[351] 

SUB 1360 


[19181 

2700 z = REMAIN (0) : WHILE INKEYfO"":W 

[2561] 

[665] 

END 


[4211 

2710 '******************** 

[665] 

[665] 

2720 '* tableau 4 * 

[319] 

[15221 

2730 '******************** 

[665] 

[4063] 

2740 tabl=4:GOSUB 3770 

[1494] 


2750 DATA 0,0,638,0,80,200,440,80,6 
38,160,160,290,350,160.480,450,240, 

[4747] 

[23633 

638,200,320,580,0,240,230,* 



2760 DATA 28,20,2,60,66,100,2,140,6 

[3113] 

[2179] 

4,180,126,20,150,60,86,100,136,140, 
96,180,* 


[969] 

2770 RESTORE 2750:co 1 = 1 :co2= 1 2:GOSU 

[1920] 

[H71J 

B 3040 


[919] 

2780 GOSUB 3120 

[969] 

[16713 

2790 b: =80:ky=38 

[858 3 

[16783 

2800 kx1=80:ky1=199 

[724 3 


2810 CALL &8000,kx,ky,spr(9) 

[16713 

[2237] 

2820 s >' = 30 5 s y = 20 ï x = 32 V s y = 4 4 ; z s 3 4 s GO 
SUB 2070 

[10743 

[2786] 

2830 sx = 80;sy=i30:sp=8: Tace=1 :sc = i0 
:GOSUB 3210 

£23273 

C256H 

2840 a x = 8 0 : a y=4 0 : x =3 i: 0 : y=3 66 : z = 3 6 : G 
OSUB 1360 

£2083] 

[665] 

2850 z=REMAIN(0):WHILE INKEYf<>"":W 

[25613 

[4113 

END 


[665 3 

2860 '******************** 

[6653 

Tl 322] 

2870 '* tableau 5 * 

[3173 

[40333 

2880 '******************** 

[6653 

2890 tabl=5:GOSUB 3770 

[1282J 


2900 DATA 0,0,638,0.320,140,190,320 

£70303 

[34233 

,550,600,320,633,140,240,300,390,24 
0,500,550,240,638,0,160,200,400,i60 


[3793 

,550,200,80,270,350,30,450 , * 



2910 DATA 62.140,36.100,2,i00,18,20 

£3774] 

[9693 

,54,20,96,20,128,20,113,100,150,140 


[7683 

,82,180,* 


[6223 

2920 RESTORE 2900:col=8:co2=4:GOSUB 

[32803 

[16713 

3040 


[1799] 

2930 GOSUB 3120 

[969] 


2940 kx =2:ky=199 

[949] 

[15403 

2950 kx 1 = 150:k y 1 = 3 8 

[652 3 


2960 CAL L ?<S000, k x , k y, sp r ( 9 i 

r f67i j 

[30203 

2970 ax = 2:ay=180:x = 8:y = 366:z = 34;GOS 
UB 2070 

[18603 

[25613 

2980 5X = 150 : sy = 20 :sp = 8: i ac e =1 :sc = 10 
:GOSUB 3210 

i 1 4 8 5 J 

[6653 

2990 ax=0:ay=198:x=600:y = 44:z = 34; GG 

[14163 

[4253 

SUB 1860 


[6653 

3000 z=REMAIN (0) : WHILE INKEY#'" " " : W 

r34603 

[13833 

END: GOTO 4740 


[6684 3 

3010 '******************** 

[ 6 6 5 3 


3020 * af-f. et âges * 

[254] 


3030 ******************** 

[665 3 


3040 READ af: IF af="*" THEN RETURN 

[11783 


3050 a = VAL(a$): READ b , c 

•£14163 

[27493 

3060 PLOT a,b,col:DRAW c, b:DRAW c.b 

[33131 


+8:DRAW a.b+8:DRAW a,b 


[18653 

3070 PLOT a+8,b*4,co2:DRAW c~8,b + 4 

f12313 


3080 GOTO 3040 

[441.3 

[9693 

3090 ' ******************** 

[6653 

[12123 

31 Ou ^ 81 \ . fîi i c r 0 b £ 5 * 

[11163 

[9193 

3110 ' ******************** 

£665 3 

[16713 

3120 READ a f: IF af="*" THEN RETURN 

[11783 

[23723 

3130 a = VAL < af):READ b 

£15263 

3140 CALL &8000,a,b,spr(105 

r12603 

[1669] 

3150 U G F 0 3120 

[457] 


2220 MOVE x,y-is DRAWR 30,0,11 
2230 FOR t = l TO é>0: NEXT : NEXT 
2240 PR INT HO" 

2250 SOUND 129,30,60,5,,3 :RETURN 
2260 '******************** 

2270 '* tableau 1 * 

2200 'HBHHHHItHHHH 

2290 t a b 1 = 1 :GOSUB 3770 
2300 DATA 0,0,638,0,80,100,40,160,3 
00,260,120,510,460,200,638,300,280, 
500,200,260,300,0,320,240,* 

2310 DATA 46,100,88,30,118,30,150,1 
20,100,160,48,150,2,20,* 

2320 RESTORE 2300:co1 = 10:co2=13:GOS 
U8 3040 

2330 GOSUB 3120 

2340 (:>: = 150: l:y=38 

2350 b: 1 = 2:k y 1 = 199 

2360 CALL &8000, b:, l:y , spr (9) 

12370 a >: = 15 0 : a y = 2 0 : >: = 6 0 0 : y=4 4 : 7 = 3 4 : G 
OSUB 2070 

2380 s>: = 2‘: sy=180: sp=8: f ace=l : sc = 7: G 
OSUB 3210 

2390 ax=15Ü:ay=4ü:x=S:y=366:z=36:G0 
SUB 1860 

2400 z=REMAIN (0) : WHILE INKEYfO" " : W 
END 

2410 '******************** 

2420 '* tableau 2 * 

2430 '******************** 

2440 tabl=2:GOSUB 3770 

2450 DATA 0,0,638,220,80,420,160,16 

0,260,380,160,480,100,240,200,260,2 

40,520,40,320,300,430,320,638,* 

2460 DATA 144,20,114,100,124,140,64 
,140,40,100,24,140,56,180,10,180,* 
2470 RESTORE 2450:col=2:oo2=5:GOSUB 
3040 

2480 GOSUB 3120 

2490 b: = 2s ky=38 

2500 b: 1 = 150:ky1 = 199 

2510 CALL ?<3000,k x,ky,spr(9) 

2520 ax = 2 : ay = 20 : >: = 8 : y = 44 : z = 34 : GOSUB 
2070 

2530 5 X = 150:sy=180s5p = 8:-face=l:5C = 8 
: GOSUB 3210 

2540 a x = 2 : ay = 40j x=600:y = 366î 7 = 36:GO 
SUB 1360 

2550 z = REMAIN(0) : WHILE INKEYfO" ":W 
END 

2560 '******************** 

2570 '* tableau 3 * 

2580 '******************** 

2590 tab1=3:GOSUB 3770 
2600 DATA 0,0,638,40,80,240,280,80, 
380,440,30,590,100,160,300,400,160, 
590,0,240,140,260,240,500,560,240,6 
38,0,320,60,200,320,400,460,320,500 
»* 

2610 DATA 142,100,128,20,80,20,16,2 
0,2,140,84,140,50,180,100,100,* 

2620 RESTORE 2600:col=3:co2=6:GOSUB 

3040 

2630 GOSUB 3120 
2640- b: = 150: t:y= 158 
2650 b: 1 = 2:ky1 = 199 
2660 CALL 3.3000,1:x , I:y, spr ( 9 J 
• 2670 ax=150:ay=140:x=600:y=284:z=34 
:GOSUB 2070 

2680 5x=2:sy=180ïsp=8:face=l:sc=8:G 


34 







3160 

1 *********** 

C 332 3 

3770 

FOR z = l TO 1200:NEXT 


[18363 

317 0 

' * * 

[1753 

3780 

MODE 0: PEN 8 


111203 

3130 

'* JEU * 

[2303 

3790 

LOCATE 5,20:PR INT"SCORE : 

Il ( 

! 

[22543 

3190 

' * * 

[1753 

3800 

PEN 9: PRINT USING"###";sco 


[17863 

3200 

'*********** 

[3323 

3810 

PEN 6:al ="CIRCUIT" 


[12733 

3210 

sc 1=0:touch=0:bx = 80:b y = 198 :bbx 

[22873 

3820 

FOR i=1 TO 7 


[4473 

=bx:bby = by:pp = 0:ppl = pp: ji = 0 


3830 

FOR j = 2 TO 12 


[805 3 

3220 

PG7Œ &A0!0,0 

13433 

3840 

SOUND l,j*40,1,5 


[15393 

3230 

CALL 1(8000 , bx , by , spr (0) 

[8493 

3850 

LOCATE 6 + i,j:PR INT MIDf(al 

, i , 1 

[11843 

3240 

EVERY 11-tabl GOSUB 3420 

[19243 

) 




3250 

GOTO 3350 

[4433 

3860 

LOCATE 6+i,j-liPRINT" " 

4 

[6773 

3260 

IF NOT INKEY(l) AND ax<150 THE 

[38303 

3870 

CALL $(BD 19 


[3523 

N ax = 

ax+2:k=4:tm=8:GOTO 3310 


3880 

NEXT:NEXT 


[10223 

3270 

IF NOT INKEYiS) AND ax>2 THEN 

134543 

3890 

PEN tabl 


15153 

ax = ax 

-2:k=6:tm=-2:GQT0 3310 


3900 

FOR i-1-9 TO 15 STEP-i 


[16133 

3280 

IF NOT INKEY(9) THEN 3530 

[11393 

3910 

SOUND 1, i*4-20,1,5 


[16013 

3290 

IF T ace=1 THEN 3380 

[12813 

3920 

LOCATE i , 12:PRINT HEX*(tabl)" 

[22213 

3300 

Tace=1 :sp = 8:GOTO 3320 

[12663 

II 




3310 

face=0:ki=ki XOR l:sp=k+ki:IF 

[36613 

3930 

FOR 2=1 TO 100:NEXT 


[16973 

ki THEN SOUND 4,0,1,4,,, 10 


3940 

NEXT 


1350 3 

3320 

DI : C AL L ?<8000, a ax , a a y , sp r ( s p 1 ) 

[18153 

3950 

PEN 1 


[5493 

3330 

DUT &7F00,148 

[673 

3960 

FOR 2=1 TO 3000:NEXT 


[ 11093 

3340 

CALL ?<80Ô0,ax ,ay,spr (sp) 

[20373 

3970 

MODE 0:RETURN 


[13153 

3350 

CALL «cBD19>El 

[5003 

3980 

********************* 


[6653 

3360 

spi=sp:aax=ax:aay=ay 

[13463 

3990 

'* c ' est perdu * 


[9633 

3370 

CALL 480A9,ax*tm,ay: IF FEEK1&A 

137653 

4000 

'*******###*#******## 


16653 

011) = 

: ?(CF THEN GOSUB 4550 


4010 

d x = a x : d y = a y 


[604 3 

3380 

CALL 3(8032 , ax ,ay: IF PEEK (3<A000 

[45553 

4020 

SOUND 4,207,0,0,13,13 


[13943 

) =0 THEN SOUND 2,80,200,4 ,,5:GOTO 3 

710 

4030 

IF ax<80 THEN ax = 150:G0T0 

4050 

[13873 

3390 

IF ax=sx AND ay=sy AND scl>=sc 

[9463 

4040 

a x = 0 


[853 

THEN 

! 3740 


4050 

IF a y <10 0 THEN ay=199:G0T0 

407 

[10323 

3400 

IF PEEK(&A010) THEN 3980 

114733 

0 




3410 

GOTO 3260 

[4613 

4060 

a y = 4 0 


[250 3 

3420 

IF ax<bx THEN d = 2:bx=bx-2: GOTO 

[22303 

4070 

FOR i=1 TO 50 


[5313 

3440 


4080 

SOUND 1, INT(RND*4Ü0> +600,2 

! ° 5 I 

[24003 

3430 

IF ax >bx THEN p=0:bx=bx+2 

[6713 

,IN T(R N D * 10)+1 



3440 

IF a y < b y THEN by = by-3:GOTO 34601 1 121 3 

4090 

INK 5, INT<RND*26)+1 


[15503 


3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

a 6 3 0 

30,0, 

■à 6 4 0 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 


IF a y > b y THEN by-by + 3 
CALL 2(8000,bb>! ,bby,spr <ppl ) 
DUT ?<7FÜO, 148 
CALL 2(8000, b >: , b y , spr (pp ) 
CALL 2<8055, ax , bx , a y , by 
bb>;=b>: î bby = byï pp l=pp 
ji=ji XOR i:pp=p+ji 
RE rüRN 

SOUND 2,400,40,0,2,4 
FOR i s'a y TO ay+45 3TEP 5 
IF i>199 THEN 3620 
CALL 


2( 8 D1 ? 

h 8000 ,aa>:,aay,5pr<»pl) 
2t8000, ax , i'jâpr (3) 

2i B D19 

a a y=à y : s- p 1=8 


CALL 
CALL 
CALL. 
ay = i 
NE XI 

CALL 2( 80 3 2, a >! , a y 

IF PEE K(& A 00 0 > < > 0 THEN SOUND 

1 , 5 , , ,31 : s p1 = 8 : G 0 T 0 3380 

ay=ay-5 

OUI 2L7FOÜ, 1 48 

CALL 2< 8 0 ü U , a a >! , a a y , 5 p r ( 8 ) 

C A !.. L 2< 8 0 00, a >i, a y, s p r ( 8 ) 

CALL & BD19 
a a x = a x : a a y - a y 
GOTO 3620 
sp = 8 

CAL L 2(8000, aax , aay , spr ( s p 1 > 
ay = ay-5s80FO 3670 
CALL «<8000, aax , aay , spr < spl 3 
CALL 2( 8 Ô 0 0. .a >!, a y , s p r ( 8 i 
RETURN 


Il 193 J 

[15771 

[673 

[12003 

[1569] 

[6253 

[1147J 

[555 3 

[ 1461 ] 

[12973 

[11513 

[352 3 

112033 

[13253 

[3523 

[10153 

13503 

[8073 

C4075J 

[6863 

[673 

[13773 

[17923 

13523 

[7123 

[6763 

[1883 

[12033 

[8543 

Il 203 J 

[17923 

[5553 


4100 INK 7,INT<RND*2é3+1 [9113 

4110 INK 9,1NT (RND*26}+1 [ 12453 

4120 INK 13,1NT(RND*26)+1 [ 777 3 

4130 FOR 2=1 TO IÔïNEXTïNEXT [14623 

4140 GOSUB 1370 [9213 

4150 CALL «8000 , dx , dy , spr ( sp 1 ) 117663 

4160 SOUND 1,800,80,0,2,,20 N 7063 

4170 CALL 2(8000 , dx , dy , spr (11) [ 14743 

4180 FOR z=l TO 200:NEXT [20303 

4190 CALL 2<8000, dx,dy, spr (11) [ 14743 

4200 CALL 2(8000,dx ,dy, spr (12) [ 1 4763 

4210 FOR 2 = 1 TO 200: NÉXT [20803 

4220 CALL Sc8000,d>: ,dy,spr < 12) [ 1 4763 

4230 CALL 2(8000 , dx , dy , spr ( 11 ) [ 1474] 

4240 FOR z=l TO 200:NEXT [20803 

4250 CALL 2(8000, dx , dy , spr ( 11 ) [ 1474 3 

4260 FOR 2 = 1 TO 500:NEXT [19123 

4270 SOUND 4,1200,0,0,14,14 [15033 

4230 SOUND 4,0,20,2,,,10 [13533 

4290 FOR i=1000 TO 1500 STEP 100 [16983 

4300 SOUND 4, i ,30,0,15,15 [17413 

4310 NEXT î z = REMAIN(0) [ 1505] 

4320 WINDOW 7,14,9,13:PEN 11 : PAPER [ 1957 3 
3: CLS 

4330 SYMBOL 


,14,9, 13:PEN 1 1 : PAPER 
55,6,8,60,102,126,96,6 E1 758J 


>, 2: PR INT"T ’ es" 

!,4 : PR I NT "cr ev "CHRI (25! 


4340 LOCATE 
4350 LOCATE 

^ » i » 

4360 PLOT 192,192,2ïDRAWR 0,78:DRAW 
R 252,0 

4370 DRAWR 0,-78:DRAWR -252,0 
4380 FOR 2=1 TO 6000:NEXT 


[1530] 

[18553 

[16013 

[12133 

[14183 


3 





LA BECANE EN FOLIE 


CALL &8000,bbx,bby 
CLSsPEN 1 :LOCATE 2 


,spr(p p 1 > 

,2: PR INT"SCO 


[15771 

[111?] 


4390 
4400 
REî " 

4410 LOCATE 3,4sPRINT USING”###";sc [1928] 

192,192,2 ï DRAWR 0,78:DRAW [1601] 

_ DRAWR 0.-78:DRAWR -252,0 

4440 CALL 3(8000 ,bb>:, bby, spr < pp 1 ) 

4450 WH ILE IN K E Y $ < >”":W E N D:E V E RY 
GOSUB 3420 
4460 ax=l 


4420 PLOT 
R 252,0 
■'30 


4950 CALL 8( 8 0 O O, i , a y , s p r < k ) 

4960 CALL 8(8000,18,a y,spr18) 

4970 SYMBOL 255,6,8,60,102,126,96,6 
0 

4980 WINDOW 7,14,18,22 : PAPER 4:CL.S 


4990 PEN 1:LOCATE 3 


; PR INT”T 'as" 


[1213] 

E15773 

[36843 


[531] 


5000 LOCATE 2,4 : PR INT”gagn"CHR *(21 

) Il | U 

5010 PLOT 192.48:DRAWR 
0,78 

5020 DRAWR -252,0:DRAWR 0,-78 


[832 3 

[1792] 

[17583 

[1374] 

[18751 

[2655] 

[1509] 

[9163 


4470 

WHILE 

axObx OR 

ay< >by: IF 

INKE 

[39153 

5040 

rÎ = "F"+ CHRS(255)+"1ici tâtions, 

[97573 

Y $ < > 

"" THEN 

RUN 120 

ELSE WEND 



vous 

m'avez d"+CHR*(255)+"barass"+ 


4480 

ax = 120 

:ay=159 



[534 3 

CHR$( 

255)+" de ces sales bestioles. 


4490 

WHILE 

axObx OR 

ay<>by: IF 

INKE 

[39153 

" +SPACE$ ( 10 ) + " Al 1 es en paix, mon fi 


Y*< > 

“" THEN 

RUN 120 

ELSE WEND 



1 s ! ” 

+SPACEI(10) 


4500 

ax = 32 : 

ay=159 



[5843 

5050 

WHILE INKEY $< >"":W E N D 

[17863 

4510 

WHILE 

axObx OR 

ayOby: IF 

INKE 

[39153 

5060 

FOR i=1 TO LEN(ri) 

[755 3 

Y î < > 

"" THEN 

RUN 120 

ELSE WEND 



5070 

LOCATE 20,4:PR INT MI D $(r$, i , 1 > 

[17623 

4520 

ax =32 : 

ay=87 



[9453 

5080 

FOR j=l TO 4 

[6213 

4530 

WHILE 

axObx OR 

ay<>by: IF 

INKE 

[39153 

5090 

OUT ?(7F00,148 

[67 3 


i. » Il 


120 ELBE 


4550 
4560 
4 
4 


DI :sc1 = sc1 + 1 
IF tm=-2 THEN tm=-S 

StSOOO, ax +t ro, ay , spr <101 
1 * an n ? =;i 


tüov if X.(U-"/ i ne.N 

1570 CALL S(8000, a>:+t u, ay, sp 
4580 SOUND 1,800,80,0,2,,31 
4590 CALL 3(8000, ax+tm, ay, spr ( 11 ) 
4600 CALL &BD19:CALL &BD19 
4610 CALL 3<8000, ax+tm, ay , spr ( 11 ) 
4620 CALL 8(8000, ax + tm, ay , spr ( 12 > 
4630 CALL 3(8019: CALL &BD 19 
4640 CALL 8<B000, ax +tm , ay , spr ( 12 ) 
4650 CALL 3(8000, ax + tm, ay , spr < 11 ) 
4660 CALL 8(BD19:CALL 8<BD19 
4670 CALL «e800.0, ax +tm, ay, spr ( 11 ) 
4680 sc o = sc o + i0 

IF sc=scl THEN CALL 
. 8< 8 0 0 0 , k x 


L 3(8000,kx 1, 
ky,spr(9) 


4680 

4690 IF sc=scl 
kyl ,spr < 9 ) : CALL 8(8000, kx ,k 
4700 EI :RETURN 
4710 ‘******************** 

4720 '* e'est gagne * 

4730 '******************** 

4740 FOR z=l TO 800:NEXT:z=REMAIN<0 
) 

4750 MODE 0:BORDER 0:GOSUB 1360 
4760 PEN 5:LOCATE 6,9:PR INT CHR$<2' 
2 ) ; 

4770 PEN 11 s PAPER 5 - 


[317] 

[5073 

[14073 

[11263 

[17073 

[11283 

[10993 

[11283 

[11223 

[10993 

[11223 

[11283 

[1099] 

[11283 

[5623 

[31813 

[4163 

[6653 

[14613 

[6653 

[21743 

[11543 

[16673 


4//0 PEN 11 : PAPER 5:PRINT" Z80"CHR* [29053 
(149)"RAM 

4780 PEN 5 : P A P E R OiPRINT CHRf<243-> 

4790 PEN 11 : FOR i = 10 TO 14 
4800 LOCATE 11,i: PR I NT C H RI(14 9) 

4810 NEXT 

4820 CALL 8(8000,150,128 , spr (9 ) 

4830 PAPER 15 : PR I NT CHR* (20): PAPER 
0 

4840 ax=150:ay=103:x=600:y=224:2=4 
:GOSUB 2070 
4850 k1 = 6s k 


48 
0 

4840 ax=15Q:i 
:GOSUB 2070 
4850 k1 = 6:k = 8 

=150 TO 20 STEP 


[28133 

[10773 

[10743 

[350 3 

[16583 

[20853 


IDJll K i — D : K — O 

4860 FOR i = 150 TO 20 STEP-2. 

4870 OUT &7F00,143 

4880 CALL 8(8000, i , ay , spr ( k ) 

4890 CALL 8<8000, i-2 , ay , spr ( k 1 

4900 CALL 8< B D19 

4910 SOUND 4,0,1,4, , ,10 

4920 k = k 1 

4930 k 1 = k 1 XOR 1 

4940 FOR 2=1 TO 60:NEXT:NEXT 


=48 [27623 

[4893 
[994 3 
[673 
[8323 
[9983 
[3523 
[11163 
[2883 


U'iJ. 

[ 1373 


5100 CALL 3(8019 
5110 CALL 8(8002 
5120 IF INKEYfC )•” " THEN RUN 
5130 IF j = 4 THEN 5150 
5140 FOR 2=1 TO 50:NEXT 
5150 NEXT j , i 
5160 GOTO 5060 



3 
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Coccinelle 


u volant d'une 
A .A brave cocci- 

netle, éprouvez 
votre habileté 
en affrontant au 
mépris du danger, ■ l'hostilité 
d'une circulation des plus 
intenses. 

En évitant les véhicules et les 
plaques de verglas, songez à 
vous réapprovisionner en rou¬ 
lant sur les barils qui jalonnent 
le parcours. De temps à autre, 
un camion klaxonnant tentera 
de vous doubler. Laissez-lui le 
passage, sinon... Vous pouvez 
accélérer jusqu'à 250km/h 
(joystick vers le haut ou flèche 
haut) et décélérer jusqu'à 
50 km/h (joystick vers le bas ou 
flèche bas). A 250 km/h, ‘Fire ' 
enclenche le turbo... 
Sauvegardez le listing Basic 
sous un nom de votre choix et 
entrez les codes hexadéci¬ 
maux du second listing à l'aide 
du programme AMSAISIE 
(reportez-vous à son mode 
d'emploi). Spécifiez 82DC 
comme adresse de début et 
sauvez le langage machine par 
l'option 'S'sous le nom COC (à 


la suite du programme Basic 
dans le cas d’une sauvegarde 
K/). Au vu du nombre de 
codes, il semble raisonnable de 
morceler le travail en créant 
plusieurs fichiers (COC1, 
C0C2, C0C3, etc.), qui seront 


ultérieurement chargés à la 
suite après un MEMORY 
&82DB et sauvegardés ainsi 
dans un fichier unique : 

SAVE "COC. BIN",b.&82DC,& 
ICI F 

Frédéric Carbonero 


Nota : les possesseurs de 464 
devront, aux lignes 190 et 210 
du programme Basic, rempla¬ 
cer la fonction CLEAR INPUT 
par : 

WHILE INKEYSO”” : VEND 


VITESSE ï 

POINTS: 

004 kM/h y 


REDEFINITION DES 

TOUCHES CO/N > ? 


U 

«MB 

mt 

S 


SXPTY 

FHLL 


10 MEMORY 32499:L0AD"C0C.BIN",S<82DC C33213 


: MODE tiPEN liPAPER 0 

20 RESTORE:INK 0,26s INK 1,0:INK 2,6 C 12653 
30 BORDER 26:ENT -5,4,1,1,4,-1 ,1 C1915 3 
40 ENT -8,60,-1,1,60,1,1jENV 1,2,34 [2106) 
,50 

50 L0CATE 10,10 C6763 

60 PRINT "Indications pour jouer <0 [24303 
/N) '* 

70 IF INKEY (46)0-1 THEN GOTO 200 120443 

80 IF INKEY(34)=-l THEN GOTO 70 [4663 

90 CLS:PEN 2 [4913 

100 L0CATE 12,1 :PRINT "INDICATIONS" [8993 

110 L0CATE 12,2:PRINT "-" [ 14683 

120 PEN liLOCATE 5,4 [8793 

130 PRINT ".Que vous redéfinissiez [121803 
les "tLDCATE 6,5:PRINT "touches ou 
non, vous pouvez "sLOCATE 6,6 : PR I NT 
| "jouer au JOYSTICK. 11 : LQCATE 5,8:PR 


INT ".Si vous ne r ede-f ï n i ssez pas 1 
es " 

140 L0CATE 6,9 s PR I NT "touches, il y [7071 3 
a 4 touches pre-":L0CATE 6,10 : PR IN 
T "programmées "j.-LOCATE 21,11: PR IN 
T "< "} 

150 FOR f = 240 T0 243 : PR I NT CHR*<f)+ [41023 
CHRI(32)j: NEXT:PRINT ">":L0CATE 5,1 
3 

160 PRINT ".Vous pouvez accélérer j [101113 
usqu 'a-iLOCATE 6,14,-PRINT "250 Km/h 
. " :L0CATE 5,16 : PR I NT ".Vous pouvez 
decelerer jusqu'a":L0CATE 6,17:PRIN 
T "50 Km/h." 

170 L0CATE 5,1 9 : PR I NT ".A 250 Km/h [45653 
vous pouvez activer " 

100 L0CATE 6,20:PRINT "le TURBO gui [130713 
vous propulsera a":L0CATE 6,21 : PR I 
NT "300 Km/h. "sLOCATE 5,23 : PR I NT ". 














Coccinelle 


«ITXSSSt POINTS l 

490 DATA -4,18,0,20,6,6,6,2,10,-4,1 

004 lmST» OOM80 

0,-8 


500 DATA 4,-14,0,-12,-6,-30,-30,-18 


,-46 


510 DATA -4,-16,0,-28,4,-14,14,-14, 


14 

II 

520 DATA — 6,14,0 ,«2 2,4,10,10,4,10,-4 

n 

,18 

y 

530 DATA -8,8,-8,2,-6,0,-10,-4,-4,- 

—- 

4,0 

■fc 

540 DATA -12,6,-6,6,0,2,2 

w 

550 DATA 254,24,-12,6,0,2,2,4,0,0,2 


16 


560 DATA -14,6,-2,12,0,12,4,10,10,2 


4 2 

, , X. 

akm-k-r WVÊJL 

570 DATA 12,0,18,-2,8,-10,10,-10,0, 


Pour enlever le TURBO, il vou5":L0C 
ATE 6,24 : PR I NT "suffit de decelerer 

H 

190 CLEAR INPUT:CALL &BB18 
200 RESTORE:INK 0,0:INK 1,26:B0RDER 
0 

210 CLEAR INPUTsGOSUB 330:z=l:M0VE 
230,352:GOSUB 250:M0VE 220,570:z=0. 
8 

220 GOSUB 250:z = 2:MOVE 230,300 

230 GOSUB 250:z =4:MOVE 230,250 

240 GOSUB 250:GOTO 210 

250 READ a:IF a=255 THEN 310 

260 IF a=254 THEN 290 

270 READ b:a=a/z:b=b/z:DRAWR a,b 

2B0 GOTO 250 

290 READ a,b:a=a/z:b=b/z:MOVER a,b 
300 GOTO 250 

310 RESTORE : FOR f = l TO 96:a*=INKEY* 

320 IF al<>"" THEN CALL &82DC ELSE 
NEXT f 

330 MODE 2:LOCATE 5Q,25:PRINT "Prog 
ramme de F.CARBONERO":RETURN 
340 DATA 0,-4,-10,-10,-16,0,-6,6,0, 
10,8 

350 DATA 8,20,0,8,-8,6,-26,20,-20,1 

6,0 

360 DATA 14,14,2,16,-8,8,-2,0,-2,2, 
-16 

370 DATA 0,-4,-4,-2,0,-12,-12,-2,-1 

0,0 

380 DATA -30,3,-50,-4,-10,-6,-6,-8, 
-2 

390 DATA -20,0,-12,4,-6,6,-2,8,0,10 
,2,4 

400 DATA 8,8,22,0,16,-14,4,-20,8,-8 


,8 

410 DATA -2,20,4,14,12,0,12,0 
420 DATA -20,8,-8,8,-2,14,0,14,14,4 
,12 


430 DATA 0,-12,2,-2,4,-10,14,0,254, 

-20 

440 DATA 20,0,22,-4,4,-2,0,-2,2,-8, 

2 

450 DATA -10,0,-8,-4,-6,-6,-2,-6,-4 
,-4. 

460 DATA -2,-4,254,-208,-82 
470 DATA -16,-8,-14,0,-6,6,0,4,4,12 
9 B 

480 DATA 14,0,12,-4,6,-6,6,-14,6,-6 [15563 

,8 


[11453 

[17173 

[40283 


[13753 

[23033 

[13273 

[11453 

[11223 

[23433 

[4193 

[19383 

[4193 

[35663 

[21013 

[53943 

[15273 

[16903 

[10033 

[19363 

[13583 

[11133 

[11893 

[7273 

[15733 

[17223 

[14353 

[8013 

[8293 

[10373 


580 DATA -6,-4,-4,-6,-22,-2,-16,254 
,32 

590 DATA 48,2,-10,4,-4,22,0,0,2,10, 
10 

600 DATA 14,0,2,-2,254,-4,-50,0,-4, 
-6 

610 DATA -6,-12,0,-6,6,-4,12,0,18,4 

,12 

620 DATA 254,60,12,-2,2,-14,0,-10,- 
10 

630 DATA -6,-14,0,-18,4,-14,6,-6,12 

, 0,6 

640 DATA 6,0,4,254,0,-10,10,2,10,10 

,12 

650 DATA 26,4,20,254,0,8,2,0,2,2,0, 

2,-2 

660 DATA 2,-2,0,-2,-2,0,-2,254,-4,- 
34,0 

670 DATA -14,-2,-2,0,-8,2,-2,0,-4,4 


680 DATA 8,0,2,2,22,58,2,2,8,0,2,-2 

,0 

690 DATA -12,-2,-2,-8,-44,254,12,54 


,-4 
680 
,0 
690 
, 6,6 

700 DATA 6,0,4,-4,0,-20,-2,-2,-2,-1 

6,2 

710 DATA -12,4,-4,6,0,10,10 

720 DATA 0,16,8,24,12,12,12,0,2,-2, 

0,-2 

730 DATA 2,-2,0,-6,-2,-8,-6,-6,-14, 

0,-6 

740 DATA 6,254,-6,-34,8,-8,8,0,8,2, 
34 

750 DATA 34,0,2,10,10,30,58,0,4,-2, 
8,-4 

760 DATA 4,-8,0,-10,-10,-4,-10,-2,- 

8,-2 

770 DATA -36,0,-50,2,-2,0,-2,4,-4,1 

0,0 

780 DATA 2,2,2,0,6,6,8,38,4,2 
790 DATA 30,58,0,4,-2,8,-4,4,-8,0,- 
10 

800 DATA -10,-4,-10,-2,-8,-2,-36,0, 
-50 

810 DATA 2,-2,0,-2,4,-4,10,0,10,10,. 
0,16 

820 DATA 8,24,12,12,12-,0,2,-2,0,-2, 

2 -i 

830 DATA 0,-6,-2,-8,-6,-6,-14,0,-6, 
6 

840 DATA 254,-6,-34,8,-8,8,0,8,2,25 
4,40,-2,2,0,2,2,0,2,-2,2,-2,0,-2,-2 
,0,-2,255 


[19843 

[13563 

[19393 

[8673 

[17213 

[11733 

[11653 

[14243 

[12413 

[15923 

[11273 

[11093 

[21583 

[12183 

[10863 

[15223 

[12793 

[12823 

[17623 

[13393 

[17753 

[19263 

[8813 

[20243 

[11913 

[7013 

[18033 

[12183 

[17453 

[7973 
[820 3 

[11423 

[11903 

[6263 

[17183 

[32913 


38 



82DCi3E 

01 

32 

E6 

9E 

3E 

08 

32 

: CB 

G2E4iE7 

9E 

3E 

00 

32 

E8 

9E 

3E i 1F 

B2EC:02 

32 

E9 

9E 

3E 

2F 

32 

EA 

B2 

82F4i9E 

21 

EB 

9E 

06 

FF 

36 

00 i F9 

82FC s 23 

10 

FB 

3E 

00 

06 

00 

OE : FE 

8304(00 

CD 

32 

BC 

3E 

01 

06 

00:87 

830C 80E 

.00 

CD 

32 

BC 

3E 

02 

06 

: 9E 

8314106 

OE 

06 

CD 

32 

BC 

3E 

03 

AD 

8 31C : 06 

IA 

OE 

IA 

CD 

32 

BC 

3E : EO 

8324101 

CD 

OE 

BC 

3E 

00 

CD 

96 : EO 

832C 8 BB 

3E 

02 

CD 

90 

BB 

21 

01 

E4 

8334101 

CD 

75 

BB 

21 

CD 

9E 

06 

47 

833C a 13 

7E 

CD 

5A 

BB 

23 

10 

F9 

5E 

8344106 

06 

7E 

OE 

30 

81 

CD 

5A : 37 

834C:BB 

23 

10 

F6 

06 

03 

21 

0 A : E 7 

8354i04 

CD 

75 

BB 

3E 

03 

CD 

90:76 

835C:88 

21 

9 A 

9D 

06 

20 

7E 

CD 

63 

8364:5A 

88 

23 

10 

F9 

CD 

18 

BB: C8 

836Ci3E 

2E 

CD 

1E 

BB 

C2 

6B 

84 

B2 

8374l3E 

22 

CD 

1E 

BB 

28 

EE 

3E 

: 51 

837C:01 

CD 

OE 

BC 

3E 

02 

CD 

90 

34 

8384 s BB 

3E 

00 

CD 

96 

BB 

21 

07:46 

838Cs 05 

CD 

75 

BB 

21 

BA 

9D 

06 

8F 

8394lOF 

7E 

CD 

5A 

BB 

23 

10 

F9 : B2 

839Ci3E 

03 

CD 

90 

BB 

CD 

18 

BB 

18 

83A4iCD 

5A 

BB 

CD 

58 

84 

32 

E6 

:CA 

83AC :9E 

3E 

02 

CD 

90 

BB 

21 

09 

4F 

8384:05 

CD 

75 

88 

21 

C 9 

9D 

06 : C6 

83BC:OF 

7E 

CD 

5A 

BB 

23 

10 

F9 

•DA 

8304:3E 

03 

CD 

90 

BB 

CD 

18 

BB 

40 

83001 CD 

5 A 

BB 

CD 

58 

84 

32 

E7 

F3 

B 3 D 4 i 9 E 

3E 

02 

CD 

90 

BB 

21 

OB 

79 

83DCi05 

CD 

75 

BB 

21 

D8 

9D 

06 

FD 

83E4-.0F 

7E 

CD 

5A 

BB 

2^ 

10 

F9 

02 

83EC:3E 

03 

CD 

90 

BB 

CD 

18 

BB 

68 

83F4: CD 

5A 

BB 

CD 

58 

84 

32 

E8 

IC 

8 3F C:9E 

3E 

02 

CD 

90 

BB 

21 

OD 

A3 

8404105 

CD 

75 

BB 

21 

E7 

9D 

06 

35 

8400:OF 

7E 

CD 

5A 

BB 

23 

10 

F 9 

2B 

8414.-3E 

03 

CD 

90 

BB 

CD 

18 

BB: 91 

841C s CD 

5A 

BB 

CD 

58 

84 

32 

E9 

46 

8424:9E 

3E 

02 

CD 

90 

BB 

21 

OF : CE 

8420:05 

CD 

75 

BB 

21 

3D 

9E 

06 

B4 

8434:0F 

7E 

CD 

5A 

B B 

23 

10 

F9 

53 

8430: 3E 

03 

CD 

90 

BB 

CD 

18 

BB 

B9 

84441 CD 

5A 

B B 

CD 

58 

84 

32 

EA : 6F 

8440:9E 

21 

FF 

FF 

2B 

7C 

FE 

00 

32 

8454:20 

FA 

18 

13 

3E 

00 

06 

48: A9 

8450 :F5 

05 

CD 

1E 

BB 

20 

05 

Cl 

26 

8464 : F 1 

3C 

10 

F 4 

Cl 

Fl 

C9 

3E : D2 

8460:00 

CD 

OE 

BC 

21 

08 

OB 

CD 

8B 

8474175 

BB 

21 

1F 

9E 

06 

06 

7E : 90 

8470iCD 

5A 

BB 

23 

10 

F9 

21 

OD 

3C 

8484i01 

CD' 

75 

B B 

21 

25 

9E 

06: FÛ 

8480:OF 

7E 

CD 

5A 

BB 

23 

10 

F9 

: AB 

8494:21 

OF. 08 

CD 

75 

BB 

.21 

34 

A5 

8490:9E 
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Serpentino 


I 

♦ 


e du jeu î ” } 

130 PEN 2 :LOCATE 25,10 ï PR I NT " - "j [1640] 
140 PEN 1 : FOR k = l TO 7: PR INT CHR'I ( 2 [2432] 
33 )ï:NEXT 

150'PEN 2:PR INT" +" [705] 

160 i=31iy*10 [5351 

170 PEN 2 :LOCATE i,y : PR I NT CHR$(143 [2959] 
) 

180 FOR k = 1 TO 100: NEXT [2108] 

190 IF JOY(0)=8 AND i<34 THEN PEN 1 [2917] 
:LOCATE i,y : P RIN T CHR*(233):i=i+1 : G 
OTO 170 

200 IF J0Y <0)= 4 AND i>28 THEN PEN 1 [4153] 
:LOCATE i,y s PR I NT CHR*<233 )î i = i-1 : G 
OTO 170 

210 IF J0Y <0K 16 THEN 170 [ 1688] 

220 PEN 3!LOCATE 1,17: PRINT"Vitesse [3905] 
d'accélération :"; 

230 PEN 2:PR INT" "; [9351 

240 PEN 1 : FOR k = l TO 4 : P RIM T CHR$<2 [2225] 
33); :NEXT 

250 PEN 2 : P RIN T " +" [705] 

260 >! =291 y = 17 [1195] 


ageons que l’effi¬ 
cience du langage 
machine appliquée 
à un thème aussi 
classique que celui 
du Nibbler (serpent express à 
croissance ultime), suscitera 
l’enthousiasme que Serpentino 
mérite. 

Chemin faisant dans moult 
labyrinthes, un gai reptile doit 
gober en un temps limite, tous 
les objets favorisant sa crois¬ 
sance en s'efforçant de ne pas 
déguster son propre corps. La 
rapidité et la vitesse d’accélé¬ 
ration sont réglables en début 
de jeu et un serpent supplé¬ 
mentaire vous est offert tous 
les quatre tableaux. Le bonus 
restant, le score et la vitesse 
augmentent à chaque étape. 
Sauvez tout d’abord (sur dis¬ 
quette ou au début d’une cas¬ 
sette) le premier programme 
basic. Lancez ensuite le 
second programme disposant 
de ses propres vérificateurs, 
afin de créer .et sauvegarder 
automatiquement les fichiers 
binaires: DESSIN.BIN, TA- 
BLE.BIN, MUSIQ.BIN, SERP 
1.BIN, SERP2.BIN et SERP3. 
BIN qui constituent le pro¬ 
gramme principal. 

Patrice Erieau 


10 INK 0,0:BORDER 0 [620] 

20 MEMORY &50FF [4153 

30 GOTO 440 [444] 

40 FOR i=&7D00 T0 &7DFF STEP 2:P0KE [24603 
i, 1 : P0KE i + 1,0:NEXT 

50 L0AD" .'table" ,$<6000 [ 1546 3 

60 LOAD" ! diusi q" , &7A00 [948] 

70 LOAD"!serp1",&9Ü00 [5153 

80 LOAD"!serp2",&9400 [6453 

90 LOAD" ! serp3" ,$<8000 [5263 

100 MODE 1 [5063 


110 INK 0,0:INK 1,8:INK 2,24: INK 3, [ 17223 
18 

120 PEN 3 :LOCATE 1,10s PRINT"Rapidit [31393 




















Serpentino ! 


270 PEN 2 : LOCATE >:, y : P RIN T CHR* < 143 
) 

280 FOR k = l TO 100:NEXT 
290 IF JOY (0) =8 AND >:<31 THEN PEN 1 
.•LOCATE x , y: PR INT CHR* (233) : x =x +1 : G 
OTO 270 

300 IF JOY <0)=4 AND x>28 THEN PEN 1 
; LOCATE x, y! FRI NT CHR i < 2 3 3 ) 1 : G 

OTO 270 

310 IF JOY(0)<16 THEN 270 
320 RESTORE 350 
330 FOR t=28 TO i 
340 READ a :NEX T 

350 DATA 241,201,161,121,81,41,1 

360 RESTORE 390 

370 FOR t=28 TO x 

380 READ b:NEXT 

390 DATA 5,10,20,40 

400 MODE 1 : INK 0,0:BORDER 0:INK 1,1 

4: INK 2,24:INK 3,6 

410 POKE S<9291 , a: POKE &91C2 ,b: POKE 

&928D,50 

420 POKE &7F27,a :POKE &7F25,50;CALL 
&8000: END 
430 '--d'essin-- 


440 MODE OsLOAD"!dessin%&5A00: INK 
3,0:INK 4,0 

450 FOR u=&5A00 TO &5F18 STEP 2 
460 PLOT <PEEK<u)*2)+100,PEEK<u+l)* 
2+80,4 

470 PLOT (PEEK(u)*2)+104,PEEK(u+l)* 

2+82,3 

430 NEXT 

490 SPEED INK. 25,25:INK 3,8,0:INK 4 
,18 

500 SYMBOL 240,24,60,102,126,255,21 
9 219 126 

510 SYMBOL 241,60,102,195,153,153,1 
95,102,60 

520 SYMBOL 242,126,195,195,102,36,6 
0,24,24 

530 SYMBOL 243,126,219,219,255,126, 

102.60.24 

540 SYMBOL 244,24,24,60,36,102,195, 
195,126 

550 SYMBOL 245,14,63,121,223,223,12 
1,63,14 

560 SYMBOL 246,96,240,156,135,135,1 
56,240,96 

570 SYMBOL 247,112,248,158,251,251, 
158,248,112 

580 SYMBOL 248,6,15,57,225,225,57,1 
5,6 

590 SYMBOL 249,0,24,24,126,126,24,2 
4,0 

600 SYMBOL 255,255,129,129,129,129, 
129 129 255 

610 ’ SYMBOL 250,0,66,36,24,24,36,66, 
0 

620 SYMBOL 251,24,126,126,255,255,1 

26.126.24 

630 SYMBOL 252,240,144,240,143,136, 
142,8,15 

640 SYMBOL 253,255,213,171,213,171, 
213,171,255 

650 SYMBOL 254,0,126,66,90,90,66,32 
6,0 

660 GOTO 40 


E 1687 3 

C 2108 ] 
[26093 

[46663 

[16603 

[7413 

[15533 

[7173 

[11863 

[733 3 

Cl 6023 

[6853 

[7003 

[35193 

[29513 

118893 

[9223 

[23903 

[17183 

[23783 

[24673 

[350 3 
[25003 

[27823 

[19973 

[24513 

[19193 

[22663 

[21543 

[17563 

[21273 

C20093 

[23383 

[21823 

[20953 

[24883 

[25783 

[22683 

[18443 

[378 3 


10 MODE 2 

20 PRINT:PRINT:PRINT:PRINT 

30 PRINT 11 1 minute .! ! ! " 

40 PRINT:PRINT"Je charge tous les codes roac 

hine_":PRINT 

50 ’ 

60 ' 

70 RESTORE 180 
80 MEMORY &59FF 
90 compt=0:lig-180 
100 FOR i=&5A00 TO &5F19 
110 READ a* 

120 a = VAL ( "?<" + al) : IF a<256 THEN 140 

130 IF comptOa THEN 2610 ELSE i =i -1 :GOSUB 

2630 :compt=0:1ig=1ig + 10:GOTO 150 

140 POKE i,a : compt =compt+a 

150 NEXT 

160 READ a * : a = V A L ( 11 & " + a I ) : IF aOcompt THEN 

2610 ELSE GOSUB 2630 

170 P RIN T : P RIN T"o k": P RIN T 

180 DATA 1C,4E,1A,4E,1A,4C,1C,4C,1C,4A,1E , 4 
A, 20,4A,22,4A, 24,4C, 24,4E,26,4E,28,50,26,50 
,24,50,28,52,26,52,24,52,28,54,26,54,24,54, 
26,56,24,56,26,58,24,58,24,5A,22,5A,20,5C,1 
E , 5C, 1C, 5C, 1A, 5C, 18,5C, 16,5C, 14,5A, 12,3E, 10 
,3E,10,40,OE,40,OE,42,1080 
190 DATA OC,42,OE,44,OC,44,OA,46,OA,46,OC,4 
6,OE,46,OE,48,OC,48,OA,48,OE,4A,OC,4A,OA,4A 
,08,4C,OA,4C,OC,4C,OC,4E,OA,4E,08,4E,08,50, 
0A,50,OC,50,OC,52,OA,52, OC,54, OE, 56,10,58,1 
2,5A, 16,5C, 14,3C, 16,3A, 18,38,1A, 38,1C, 38,1E 
,36,20,36,22,36,24,36,d02 

200 DATA 26,34,28,34,2A,34,2C,32,2E,32,2E , 3 
0,30,30,32,30,32,2E,34,2£,36,16,38,16,3A, 18 
,38,18,3A,1A,38,1A,3A,1C,38,1C,38,1E,3A,1E, 
3A,20,38,20,38,22,36,24,38,24,3A, 22,38,26,3 
6,26,38,28,36,28,36,2A,34,28,34,2A,36,2C,34 
,2C,1E,08,20,08,22,08,cd8 

210 DATA 24,08,26,08,26,OA,28,OA, 2A,OA,2C,0 
C,2E , OC,2E , OE,30,OE,32,OE,32,10,34,10,34,12 
,36,12,36,3 4,38,1 4,3A,16,1 A,08,18,OA,16,OA, 
14,OC,16,OC,12,OE,14,OE,14, 10,12 , 10,10,10,1 
2,12,10,12, OE, 12,10,14 ,12,14 , OE, 14,10,16, OE 
, 16, OE, 18,10,18,OE,lA,6f6 

220 DATA 10,1A,0E,IC,10,1E, 10,20,12,22, 12,2 

4.14.24.14.26.16.26.18.26.1 A,26,iC,26,iC,24 
,1£,24,16,1E,18,1E ( 16,1C,18,1C,18,1A,1A,1A, 
1C, 1A, 1C, 1C , 1E , 1C, 1E , 1E, 20,1E, 1E, 20,20,20,2 

2.22.20.22.44.1 fl, 42,1 A, 40,1C,3E,1E, 40,1E,40 
, 20,3E , 20,3C , 22,3E , 22,9b 4 

230 DATA 3C,24,3C,26,3C,28,3C,2A,3E, 2C ,40,2 
C,42,2A,42,28,42,26,40,24,42,24,40,1 A, 44,18 
,46,18,48,1A,4A,1C,4A,1E,4C,1E,4C,20,4A,20, 
4C,22,4A,22,4A,24,4C,24,4A,26,4C,26,4C,28,4 
A, 28,4A, 2A, 4A , 2C ,-4A, 2E, 48,30,46,30,46,2E, 46 
, 2 A , 4 8,2 S , 4 C, 2 E, 4 E , 3 0,10 0 A 
240 DATA 50,32,50,30,4£,2E,4E,2C,50,2C,56,1 
E,54,20,52,22,54,22,52,24,50,26,50,28,52,26 
,52,28,58,1E,5A,20,64,OC,66,OE,64,ÛE,66,10, 
62,10,64,10,64,12,62,12,62,14,64,14,60,ifc,6 

2.16.60.18.62.18.60.1 A,5E,IC,60,1C,5E,1E,60 
,1E,5C,20,5E,20,5C, 22,11 DS 

250 DATA 5£,22,5C,24,5£,24,SA,26,5C,26,5A,2 
8,5C,28,5A,2A,5C,2A,58,2C,5A,2C,58,2E,5A,2E 
,56,30,58,30,56,32,53,32,5A,32,5C,32,5E,32, 
60,32,60,30,62,30,60,22,62,22,64,24,64,26,6 
6,26,64,28,66,28,64,2A,66,2A,62,2C,64,2C,62 
,2E,64,2E,66,2E,68,2E, 1470 
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260 DATA 6A,2E,6C,30,6C,32,6E,32,6C,34,6E,3 
4,6C,36,6A,36, 68,36,66,30,66,30,64,30,66 1 32 
, 64,32,66,34,70,26,6E,26,6C,26,6A,28,68,2A, 
68,2C,6A,26,72,28,74,2A,72,2A,74,2C,72,2C,7 
4,2E,72,2E,72,30,74,30,72,32,72,34,72,36,74 
, 38,76j38,78,36,76,36,1760 
270 DATA 78,34,7A,34,78,32,7A,32,7A,30,7A, 3 
0,7A,2E,7C,2E,7C,2C,82,2E,80,30,80,32,7E,34 
, 7E,36,7C,38,7C,3A,7A,3A,76,3A,76,3A.78,3A, 
84,2E,86,30,88,32,86,32,88,34,86,34,88,36,8 
6,36,86,38,82,38,84,3A,86,3A,82,30,84,30,80 
, 3E,84,3E,82,40,80,40,1AE6 

280 DATA 82,42,80,42,80,44,7E,44,80,46,7E,4 
6,7E,48,7C,48,7E,4A,7C,4A,7C,4C,7A,4C,7C,4E 
, 80,4A,82,4A,82,4C,84,4C,86,58,86,5A,86,5C, 
CA,5E,C8,5E,CC,5E,D2,4C,D2,4E,D4,4E,D2,50,D 
4,50,D2,52,D2,54,DO,54,D2,56,DO,56,DO,58,DO 
,5A,CE,5C,CE,5A,C6,5E,247C 

290 DATA C6,5C,C2,52,C4,54,C2,54,C4,56,C2,5 
6, C4,58,C4,5A,C2,58,06,48,CB,46,CA,46,CD,46 
,CE,48,D0,48,D2,4A,D0,4A,C6,4A,C4,4A,C2,4C, 
CO,4E,CO,50,C0,52,C2,4E,C2,50,C2,52,C4,62, C 
4,64,C4,66,C4,68,C2,6A,C4,6A,C2,6C,C4,6C,C2 
,6E,C2,70,C4,6E,C4,70,2A42 

300 DATA C2,72,C4,72,C0,74,C2,74,C0,76,C2,7 

6,C0,78,02,78,BE,7A,C0,7A,BE,7C,C0,7C,BE,7E 

,CO,7E,BC,80,BE,80,BC,82,BE,82,BA,84,BC,84, 

BA,86,BC,86,B8,88,BA,83,B6,8A,B8,8A,B8,8C,B 

6,8C,86,8E,B4,8E,B4,90,B6,90,B2,92,B4,92,B0' 

,94,B2,94,B0,96,AE,96,2F46 

310 DATA AC,98,AA,98,02,60,CO,60,BE,62,BC,6 
2,BE,62,BA,64,B0,64,BA,66,B8,66,B6,68,B8,68 
,B6,6A,B4,6C,B6,6C,B4,6E,B2,6E,B4,6E,B2,70, 
B4,70,B0,72,B2,72,B0,74,B2,74,AE,76,B0,76,A 
E,78,BO,78,AC,7A,AE,7A,AC,70,AE,70,AA,7E,AC 
,7E,AA,80,AC,80,A8,82,2B86 

320 DATA AA,82,A3,84,AA,84,A8,86,AA,86,A6,8 

B, A8,8B,A6,8A,A8,8A,A6,8C,A8,8C,A6,8E,A8,8E 
,A6,90,A6,92,A8,94,A8,96,A6,94,C0,54,C0,56, 
D2,5C,D2,5A,D4,58,D4,56,D4,54,D4,52,34,5E,8 
2,5E,80,SC,82,5C,30,SA,82,5A,82,58,84,56,82 
,56,88,42,8A,42,8C,32,28D0 

330 DATA 8E,32,3E,34,90,34,8E,36,90,36,80,3 

8,8E,38,8C,3A,8E,3A,8A,3C,8C,3C,88,3E,8C,3E 

, 8A,40,8A,42,92,34,94,34,96,36,94,38,96,38, 

94,3A,92,3A,94,3A,92,30,94,3C,92,3E,94,3E,9 

2,40,94,40,92,42,94,44,96,44,98,44,98,42,98 

, 40,9A,3E,9A,30,9C,3A,1E76 

340 DATA 9C,38,A6,3E,A4,3C,A2,3A,A2,3C,AO,3 

C, AO, 3E,9E,40,AO,40,9E,42,AO,42,9C, 44,9E, 44 
, 9C,46,98,44,9A,46,98,46,A8,3E,A6,40,A4,42, 
A6,42,A4,44,A6,44,A4,46,A6,46,A4,48,A4,4A,A 
6,4C,A8,4E,AA,4C,AC,4A,AE,48,AC,48,AE,46,AE 
,44 , AE,42,AE,40,AE,3E,2254 

350 DATA AA,3C,AC,3C,BO,4C,B2,4E,AE,4A,A8,4 
6,AA,46,6a0 

360 ' 

370 RESTORE 460 
380 coiript=0: t-Oî 1 i 9 = 460 
390 bc = 2501 : T g = ?<6000 
400 t = t +1 î IF t< >26 THEN 420 
410 READ a: IF aOcoapt THEN 2610 ELSE GOSUB 
2630:t = 1 :compt=0:1ig = lig M 0 
420 READ a :PÛKE Fg,a:corapt = coropt+a 
430 be-bc-l:fg=fg*l 
440 IF bc=0 THEN 1470 
450 GOTO 400 

460 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0 


470 DATA 1,1 , 1 ,1,1,1 ,1 ,1 -, 1,1,1,1, 1,1,1,1,1, 
1,1,1,1,1,1,1,0,24 

480 DATA 1,0,2,0,2,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,2,0,2,0,1,0,10 

490 DATA 1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,0,1,0,22 

500 DATA 1,0,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1, 
1,1,1,1,1»Q,1,Q,22 

510 DATA 1,0,0,2,0,2,0,2,1,1,2,0,0,2,1,1,2, 
0,2,0,2,0,0,1,0,22 

520 DATA 1,0,1,1,1,1,1,0,1,1,0,1,1,0,1,1,0, 
1,1,1,1,1,0,1,0,18 

530 DATA 1,0,1,1,1,1,1,0,1,1, 2, 1,1,2,1,1,0, 
1,1,1,1,1,0,1,0,22 

540 DATA 1,0,0,2,0,0,0,0,0,0,0,1,1,0,0,0,0, 
0,0,0,2,0,0,1,0,8 

550 DATA 1,0,1,1,1,1,1,1,1,1,0,1,1 ,0,1,1,1, 
1,1,1,1,1,0,1,0,20 

560 DATA 1,0,1,1,1,1,1,1,1,1,0,1,1,0,1,1,1, 
1,1,1,1,1,0,1,0,20 

570 DATA 1,0,1,1,0,0,0,0,1,1,2,1,1,2,1,1,0, 
0,0,0,1,1,0,1,0,16 

580 DATA 1,0,1,1,2,1,1,2,1,1,0,1,1,0,1,1,2, 
ll»2,1,1,0,1,0,24 

590 DATA 1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0, 
l»lj^)ljl)0,l,0,16 

600 DATA 1,0,2,0,2,1,1,2,0,2,0,1,1,0,2,0,2, 
1,1,2,0,2,0,1,0,24 

610 DATA 1,0,1,1,1,1,1,1,1,1,0,1,1,0,1,1,1, 
I, I > 1 1 1>0)1>0,20 

620 DATA 1,0,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1, 
l>l>l>l>l>0,l,0,i4 

630 DATA 1,0,0,2,0,2,0,2,0,0,0,1,1,0,0,0,2, 
0,2,0,2,0,0,1,0,16 

640 DATA 1,0,1,1,1,1,1,1,1,1,0,1,1,0,1,1,1, 
1,1,1,1,1,0,1,0,20 

650 DATA 1,0,1,1,1,1,1,1,1,1,0,1, 1,0,1,1,1, 

660 DATA 1,0,0,2,-0,2,0,2,0,0,0,1,1,0,0,0,2, 
0,2,0,2,0,0,1,0,16 

670 DATA 1,0,1,1,1,1,1,1,1,1,0,1,1,0,1,1,1, 
1 > 1 > 1 > 1 > 1 > 0,1 > 0 > 20 

680 DATA 1,0,1,1,1,1,1,1,1,1,2,1,1,2,1,1,1, 
1,1,1,1,1,0,1,0,24 

690 DATA 1 ,0,0,2,0,2,0,0,0,0,0,0,0,0,0,0,0, 
0,2,0,2,0,0,1,0,10 

700 DATA 1,1 ,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,1,1,0,24 

710 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0 

720 DATA 1,1,1,1, 1,1,1,1,1,1, 1,1,1,1,1,1,1, 
1,1,1,1,1,1,1,0,24 

730 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,1,0,2 

740 DATA 1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0, 
1,1,0,1,1,0,1,0,16 

750 DATA 1,0,1,1,2,1,1,2,1,1 ,2,1,1 ,2,1,1,2, 
1,1,2,1,1,0,1,0,28 

760 DATA 1,0,1,1,0,1,1,0,1,1 ,0,1, 1,0,1 ,1,0, 
1 » 1»Û>1 * 1>0,1,0,16 

770 DATA 1,0,1,1,2,1,1,2,1,1,2,1,1,2,1,1,2, 
1,1,2,1,1,0,1,0,28 

780 DATA 1,0,1,1,0,1,1,0,1., 1,0,1,1,0,1,1,0, 
1 > 1 >^> 1 > 1 )^> 1 >^>^ 

790 DATA 1,0,1 , i, 2,1,1,2,1,1 ,*2,0,0,2,1,1,2, 
1,1,2,1,1,0,1,0,26 

800 DATA 1,0,1,1,0,1,1,0,1,1,1,1, 1,1,1,1,0, 
1,1,0,1,1,0,1,0,18 

810 DATA 1,0,1,1,0,1,1,0,1,1,1,1,1,1,1,1,0, 
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1,1,0,1,1,0,1,0,18 

820 DATA 1,0,1,1,2,0,0,2,0,0,2,0,0,2,0,0,2, 
0,0,2,1,1,0,1,0,18 

830 DATA 1 ,0,1 ,1 ,1 ,1,1,1,1,1,1,1,1 ,1,1,1,1, 
lsl»l,l»l|0,l,0,22 

840 DATA 1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,1,1,1,0,1,0,22 

850 DATA 1,0,2,0,2,1,1,2,0,0,2,0,0,2,0,0,2, 
1,1,2,0,2,6,1,0,22 

860 DATA 1,0,1,1,0,1,1,0,1,1,1,1, 1,1,1,1,0, 
1,1,0,1,1,0,1,0,18 

870 DATA 1,0,1,1,2,1,1,0,1,1,1,1,1,1,1,1,0, 
1,1,2,1,1,0,1,0,22 

880 DATA 1,0,1,1,0,0,2,0,0,0,2,0,0,2,0,0,0, 
2,0,0,1,1,0,1,0,14 

890 DATA 1,0,1,1,2,1,1,1,1,1,1,1,1,1,1,1,1, 
1,1,2,1,1,0,1,0,24 

900 DATA 1,0,1,1,0,1,1,1,1,1,1,1,1,1, 1 ,1 ,1 , 
1,1,0,1,1,0,1,0,20 

910 DATA 1,0,1,1,2,0,2,0,0,2,0,1,1,0,2,0,0, 
2,0,2,1,1,0,1,0,20 

920 DATA 1,0,1,1,0,1,1,1,1,1,0,1,1,0,1,1,1, 
^ 1 , 0,1, 1 ,0,1,0,18 

930 DATA 1,0,1,1,2,1,1,1,1,1,2,1,1,2,1,1,1, 
1,1,2,1,1,0,1,0,26 

940 DATA’ 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,1,0,2 

950 DATA 1,1,1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1, 
1,1,1,1,1,1,1,0,24 

960 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,6,0,0 

970 DATA 1 ,1 , 1 ,1,1 ,1,1,1,1,1 ,1,1 ,1 ,1 ,1,1 ,1 , 
1,1,1,1,1,1,1,0,24 

980 DATA 1,0,2,0,0,2,0,0,2,0,0,0,0,0,0,2,0, 
0,2,0,0,2,0,1,0,14 

990 DATA 1,0,1 ,1,2,1,1,2,1,1,0,1,1,0,1,1,2, 
1,1,2,1,1,0,1,0,24 

1000 DATA 1,0,1,1,0,1,1,0,1,1,2,1,1,2,1,1,0 
,1,1,0,1,1,0,1,0,20 

1010 DATA 1,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0 
,0,0,0,0,2,0,1,0,6 

1020 DATA 1,0,1,1,2,1,1,0,1,1,0,1,1,0,1,1,0 
,1,1,2,1,1,0,1,0,20 

1030 DATA 1,0,1,1,0,1,1,0,1,1,2,1,1,2,1,1,0 
,1,1,0,1,1,0,1,0,20 

1.040 DATA 1,0,2,0,0,2,0,0,0,2,0,0,0,0,2,0,0 
,0,2,0,0,2,0,1,0,14 

1050 DATA 1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0 
,1,1,0,1,1,0,1,0,16 

1060 DATA 1,0,1,1,0,1,1,2,1,1,0,1,1,0,1,1,2 
,1,1,0,1,1,0,1,0,20 

1070 DATA 1,0,2,0,0,0,0,0,0,0,2,0,0,2,0,0,0 
,0,0,0,0,2,0,1,0,10 

1080 DATA 1,0,1,1,2,1,1,0,1,1,0,1,1,0,1,1,0 
,1,1,2,1,1,0,1,0,20 

1090 DATA 1,0,1,1,0,1,1,0,1,1,0,1,1,0,1,1,0 
,1,1,0,1,1,0,1,0,16 

1100 DATA 1,0,0,0,0,0,2,0,2,0,0,0,0,0,0,2,0 
,2,0,0,0,0,0,1,0,10 

1110 DATA i,0,1,1,0,1,.1,0,1,1,0,1,1,0,1,1,0 
,1,1,0,1,1,0,1,0,16 

1120 DATA 1,0,1,1,0,1,1.,0,1,1,0,1,1,0,1,1,0 
,1,1,0,1,1,0,1,0,16 

1130'DATA 1,0,2,0,0,0,0,0,0,0,2,0,0,2,0,0,0 
,0,0,0,0,2,0,1,0,10 

1140 DATA 1,0,1,1,0,1,1,0,1,1,0,1 ,1,0,1 ,1,0 
,1,1,0,1,1,0,1,0,16 

1150 DATA 1,0,1,1,0,1,1,2,1,1,0,1,1,0,1,1,2 
,1,1,0,1,1,0,1,0,20 


1160 DATA 1,0,2,0,0,0,0,0,0,0,2,0,0, 
,0,0,0,0,2,0,1,0,10 
1170 DATA 1,0,1,1,0,1,1,0,1,1,0,1,1, 
,1,1,0,1,1,0,1,0,16 
1180 DATA 1,0,1,1,0,1,1,2,1,1,0,1,1, 
,1,1,0,1,1,0,1,0,20 

1190 DATA 1,0,0,0,2,0,0,0,0,0,0,0,0, 
,0,0,2,0,0,0,1,0,6 

1200 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1, 
,1 , 1,1,1 , 1 , 1,1 » 6,24 
1210 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0, 
,0,0,0,0,0,0,0,0,0 

1220 DATA 1,1, 1,1,1,1,1,1,1,1,1,1,1, 
,1,1,1,1,1,1,1,0,24 

1230 DATA 1,2,0,0,2,0,0,0,0,0,0,0,0, 
,0,0,2,0,0,2,1,0,10 
1240 DATA 1,0,1,1,1,1,1,1,1,1,0,1,1, 
,1,1,1,1,1,0,1,0,20 
1250 DATA 1,0,1,1,1,1,1,1,1,1,0,1,1, 

, 1 , 1 > 1 , 1 5 1 , 0 » 1 5 O , i O 

1260 DATA 1,2,1,1,2,0,2,0,2,0,0,1,1, 
,2,0,2,1,1,2,1,-0,24 
1270 DATA 1,0,1,1,0,1,1,1,1,1,0,1,1, 
,1,1,0,1,1,0,1,0,18 
1280 DATA 1,0,1,1,2,1,1,1,1,1,0,1,1, 
,1,1,2,1,1,0,1,0,22 
1290 DATA 1,2,1,1,0,1,1,2,0,2,0,1,1, 
,1,1,0,1,1,2,1,0,24 
1300 DATA 1,0,1,1,2,1,1,0,1,1,0,1,1, 
,1,1,2,1,1,0,1,0,20 
1310 DATA 1,0,1,1,0,1,1,2,1,1,0,1,1, 
,1,1,0,1,1,0,1,0,20 
1320 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0, 

,0,0,o,o,o,ô,i, 6 ,i 

1330 DATA 1,1,1,1,1,1,1,1,1,1,0,1,1, 
,1,1,1,1,1,1,1,0,22 
1340 DATA 1,1,1,1,1,1,1,1,1,1,2,1,1, 
,1,1,1,1,1,1,1,0,26 

1350 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0, 
, 0,0,0,0,0,0,1,0,2 

1360 DATA 1,0,1,1,0,1,1,2,1,1,0,1,1, 
,1,1,0,1,1,0,1,0,20 
1370 DATA 1,0,1,1,2,1,1,0,1,1,0,1,1, 
,1,1,2,1,1,0,1,0,20 
1380 DATA 1,2,1,1,0,1,1,2,0,2,0,1, i, 
,1,1,0,1,1,2,1,0,24 
1390 DATA 1,0,1,1,2,1,1,1,1,1,0,1,1 , 
,1,1,2,1,1,0,1,0,22 
1400 DATA i,0,1,1,0,1,1,1,1,1,0,1,1, 
,1,1,0,1,1,0,1,0,18 
1410 DATA 1,2,1,1,2,0,2,0,2,0,0,1,1, 
,2,0,2,1,1,2,1,0,24 
1420 DATA 1,0,1,1, 1,1,1,1,1,1,0,1,1, 
, i, i, i, 1, i, o, i, 6, ^ o 
1430 DATA 1,0,1,1,1,1,1,1,1,1,0,1,1, 
,1,1,1,1,1,0,1,0,20 
1440 DATA 1,2,0,0,2,0,0,0,0,0,0,0,0, 
,0,0,2,0,0,2,1,0,10 
1450 DATA 1,1,1,1,1,1,1,1,1,1, i , 1 ,1, 
,1,1,1,1,1,1,1,0,24 
1460 ' 

1470 PRINT 11 OK" 

1480 ' 

1490 ' 

1500 RESTORE 1560:compt-Ot1i§=1560 
1510 FOR i=&7A0O T0 &7A5A 
1520 READ a:IF a<256 THEN 1540 
1530 IF comptOa THEN GOTO 2610 Ei.SE 
2630:compt=0ïlig=lig+10:READ a 


2 , 0 , 0 , 0 
0 , 1 , 1,0 
0 , 1 , 1 , 2 
0 , 0 , 0,0 
1 , 1 , 1,1 
0 , 0 , 0,0 
1 , 1 , 1,1 
0 , 0 , 0,0 
0 , 1 , 1 , 1 
0 , 1 , 1 , 1 
0 , 0 , 2 , 0 
0 , 1 , 1,1 
o , 1 , i , l 
0 , 2 , 0,2 
0 , 1 , 1 , 0 
0 , 1 , 1,2 
0 , 0 , 0,0 
0 , 1 , 1 , 1 
2 , 1 , 1,1 
0 , 0 , 0,0 
0 , 1 , 1,2 
0 , 1 , 1 , 0 
0 , 2 , 0 , 2 
0 , 1 , 1 , 1 
■ 0 , 1 , 1,1 
, o , 0 , 2 , 0 
. 0 , 1 , 1 ,! 

1 0, i , 1,1 

, o , o, 0,0 
, 1 , 1 , 1,1 
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1540 comp t =comp t -<-a : POKE i,a 
1550 NEXT 

1560 DATA 83,67,79,82,69,58,72,73,83,67,32, 
58,66,79,78,85,83,58,80,65,84,82,73,67,69,6 

9.82.73., 69,65,85,83,69,82,58,84,65,66,58,28 

00 

1570 DATA 71,65,77,69,32,32,45,32,32,79,86, 

69.82.65., 80,80,85,89,69,82,32,32,32,32,32,3 
2,83,85,82,1763 

1580 DATA 32,32,32,32,32,32,32,35,78,69,32, 
32,32,32,32,32,84,79,85,67,72,69,1104 
1590 PRINT"QK" 

1600 RESTORE 1780 

1610 compt=0:1ig =1780 

1620 FOR i =&7A5A TO $<7C2C STEP 9 

1630 READ a:IF a>=0 THEN 1660 

1640 a=ABS ( a ) : IF aOcompt THEN GOTO 2610 

1650 GOSUB 2630ïcompt=0:lig=lig+lOîREAD a 

1660 POKE i ,1 

1670 POKE i +1,0:POKE i+ 2,0 

1680 d'K = HEXI l'a , 4 > : 1 * = " $<" +LEFT* ( d$, 2 ) !rf="St“ 

+RIGHTI(d$,2>:compt=compt+a 

1690 POKE i t-3, VAL < r;f ) 

1700 POKE i+4,VAL (It) 

1710 POKE i+5,0 

1720 READ a: POKE i +6 , VAL ( "$<" +HEXÎ ( a ) ) : compt 
=compt+a 

1 730 READ a:d$=HEXtla,4): 2*="&"+LEFT* (dt,2) 

: r = ”$< " + RIGHTT (dl, 2 ) :compt=compt+a 
1740 POKE i+7,VAL(r$) 

1750 POKE i+8,VAL(11) 

1760 NEXT:READ a:IF compte>ABS<a> THEN 2610 
ELSE GOSUB 2630 
1770 PRINT"OK" 

1780 DATA 200,15,8,100,15,3,50,15,5,-411 
1790 DATA 119,15,20,106,15,20,89,15,20,119, 
15,10,106,15,10,89,15,4 0,60,15,20,53,15,20, 
45,15,20,45,15,10,53,15,10,60,15,30,119,10, 
10,119,9,18,-1639 

1800 DATA 119,8,22,119,7,25,119,5,27,119,2, 

28,-600 

1810 DATA 1000,15,5,1000,13,4,1000,10,3,100 
0,5,2,1000,2,1,-5060 

1820 DATA 758,15,100,0,0,5,758,15,50,0,0,5, 
758,15,25,0,0,1,-2505 

1330 DATA' 758,15,110,0,0,2,638,15,60,676,15 
,25,0,0,5,758,15,55,0,0,3,758,15,25,0,0,3,7 
58,15,60,0,0,3,851,15,30,0,0,1,-5 6 8 4 
1840 DATA 758,15,60,758,13,50,758,10,40,758 
,7,30,758,4,25,758,2,20,758,1,10,-5593 
1350 ' 

1860 ' 

1370 

1880 RESTORE 1960:compt=0:1ig=1960 
1390 FOR i=&9000 TO $<931D 
1900 READ a$ 

1910 a = VAL ( "$<"+a$) : IF a<256 THEN 1940 
1920 IF compte >a THEN GOTO 2610 
1930 i — i — 1 s GOSUB 2630:compt = 0:1ig = lig + 10:GO 
TO 1950 

1940 POKE i,a :compt = compt + a 
1950 NEXT:PR I NT : PR INT"ÜK": PR I NT 
1960 DATA DD,7E,00,06,09,88,C8,DD,34,00,3E, 
03,CD,90,B8,3£,00,CD,96,88,21,16,20,CD,75,B 
B, 3E,F3,DD,46,00,CD,5A,BB,05,C8,18,F9,DD,34 
, OA,DD,7E,OA,06.OA,B8,20,43,DD,36,OA,00,DD, 
34 ,OB,DD,7E,OB,06,OA,B8,20,34,DD,36 , OB , 00 , D 
D, 34,OC,DD,7E,OC,06,OA,B8,1 DES 


1970 DATA 20,25,DD,36,OC,00,DD,34,OD,DD,7E, 

OD,06,OA,B8,20,16,DD,36,OD,00,DD,34 , OE,DD,7 

E,OE,06,OA,B8,20,07,DD,36,OE,00,DD , 34,OF,3E 

,03,CD,90,BB,3E,00,CD,96,BB,21,02,22,CD,75, 

BB,06,06,11,OF,7 F,1A,C6,30,CD, 5A,BB,1B,05,2 

0,F6,DD,7E,0F,DD,46,06,B8,1AD5 

1980 DAtA 38,47,20,36,DD , 7E,OE,DD,46,05,B8, 

38,3C,20,2B,DD,7E,0D,DD,46,04,88,38,31,20,2 

0,DD,7E,0C,DD,46,03,B8,38,26,20,15,DD,7E,0B 

,DD,46,02,B8,38,1 B,20,OA,DD,7E,OA,DD,46,01, 

B 8,3 8,10,C8,21,01,7F,11,OA,7F,06,06,1A,77,2 

3,13,05,20,F9,3E,03,CD,90,1980 

1990 DATA BB,3E,00,CD,96,BB,21,04,22,CD,75, 

88,06,06,1 1,06,7F,1A,C6,30,CD,5A,BB,1B,05,2 

0,F6,C9,FE,FF,20,06,CD,29,91,3 E , 01 , C9,DD,46 

,32,B8,C2,1 B,92,CD,26,90,CD, D8,92, DD,36,13, 

00,CD,3D,91,DD,35,25,28,6E,3E , 02,C9,DD,34,1 

3,DD,7E,13,FE,15,20,04,DD,2113 

2000 DATA 36,13,14,DD,7E,13,FE,14,CO,DD,35, 

16,DD,7E,16,FE,00,20,IC,DD,36,16,OA,DD,35,1 

5,DD,7E,15,FE,00,20,OE,DD,36,15,OA,DD,35,14 

,DD,7E,14,FE,00,28,2E,3E,03,CD, 90 , BB,3E,00, 

CD,96,BB,21,07,22,CD,75,BB,DD,7E, 14,C6,2F,C 

D,5A,BB,DD,7E,15,C6,2F,CD,1FF5 

2010 DATA 5A,BB,DD,7E,16,C6,2F,CD,5A,BB,3E, 

02,CD,90,BB,C9,C3,1B,92,D1,DD,7E,17,FE,67,2 

0,OD,DD,36,17,60,DD,36,18,00,CD,00,90,18,1 1 

,DD,66,17,DD,6£,13,01,70,02,ED,4A,DD,74,17, 

DD,75,18,DD,7E,27,FE,01,28,05,DE,14,DD,77,2 

7,DD,7E,32,FE,FE,20,04,DD,22DC 

2020 DATA 36,32,F8, DD,34,32,CD,95,92,DD,36, 

33,02,DD,35,16,28, OB, CD, 63,91 , CD , 26,90, CD,F 

8,92,18,FO,DD,34,16,DD,35,15,28,08, CD,63,91 

,CD,35,90,CD,F8,92,18,FO, DD,34,15, DD,35,14, 

28,0B,CD,63,91,CD,44,90,CD,F8,92,18,FO,DD,3 

6,25,32,CD,FD,92,C3,38,80,2591 

2030 DATA D1,CD,BD,83,CD,06,93,DD,46,1F,DD, 

7E,1E,B8,20,F1,2A,F2,7F,CD,75,BB , 3E,20,CD,5 

A, BB,DD,7E,00,FE,01,28,OE,DD,35,00, CD,OA,90 
,3E,20,CD,5A,BB,C3,95,80,CD,6C,BB,3E,02,CD, 
90,BB,21,OD,OD,CD,75,BB,11,27,7A,06,0D,1A,C 
D,5A,BB,13,05,20,F8,CD,14,2317 

2040 DATA 93,3E,03 , CD,90 , BB,21 ,24,02 , CD,75, 
BB,11,34,7A,06,26,1A,CD,5A,BB,13,05,20,F8,C 
D,03,BB,CD,06,BB,CD,6C,BB,DD,36,25,32,DD,36 
,27,Fl,C3,10,60,DD,34,09,DD,7E,09,FE,Qfi,20, 
15,DD,36,09,00,DD,34,08,DD,7E,08,FE,OA,20,0 
7,DD,36,08,00,DD,34,07,3E,1E2F 
2050 DATA 03,CD,90 , BB ,21, 18,20 , CD , 75,BB,DD, 
7E,07,C6,30,CD,5A,BB,DD,7E,08,C6,30,CD,5A,B 

B, DD,7E,09,C6,30,CD,5A,BB,C9,21,5A,7A,16,03 
,E5,D5,CD,AA,BC,30,FB,3E,00,CD,B3,BC,D1,E1, 
01,09,00,ED,4A,15,20,EA,DD,21 ,00,7F,C9,C9,C 
D,5A,BB,C9,21,75,7A,16,12,258F 

2060 DATA CD,DD,92,C9,21,17,7B,16,05,CD,DD, 
92,06,FF,Ü5,20,FD,C9,21,44,7B,16,1 A,CD,DD,9 
2 , C 9 , d 14 
2070 ' 

2080 ' 

2090 RESTORE 2170 
2100 compt=0:Iig=2170 
2110 FOR i =$<9400 TO $<942F 
2120 READ a* 

2130 a = VAL<"$<"+a*):IF a<256 THEN 2150 

2140 IF aOcompt THEN GOTO 2610 ELSE GOSUB 

2630:GOTO 2160 

2150 POKE i ,a: compt=compt+-a 

2160 NEXT:PRINT:PRINT"OK":PRINT 
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Serpentino ! 


2170 DATA SE,03,CD,DE,BB,01,00,5A,OA,26,00, 
6F , C5,01,90,01,ED,4A,EB,C1,03 , OA , 26,00,6F , C 
5,01,5A,00,ED,4A,CD,EA,BB,C1,03,3E,18,B9,20 
, DF,3E,5F,B8,20,DA,C9,1330 
2180 ' 

2190 ' 

2200 RESTORE 2260s compt=Os1 i g=2260: FOR i=S<8 
000 TO 8<844D 

2210 READ a$:a = VAL < "4"+a$): IF a<256 THEN 22 
40 

2220 IF aOcompt THEN GOTO 2610 

2230 GOSUB 2630scompt=0i1ig = lig +10s GOTO 221 

0 

2240 PQKE i , a :compt=compt+a 
2250 NEXTsREAD a*: a=VAL r4" + a*) : IF aOcompt 
THEN 2610 ELSE GOSUB 2630:PR INT:PR INT"OK" 
2260 DATA DD, 21,00,7F, 21,00,7F , 3E , 00,06,08, 
77,23,05,20,FB,21,OA,7F,3E,00,06,07,77,23,0 
5,20,FB,DD,36,32,F9,DD,36,00,03,DD,36,07,00 
,DD,36,08,00,DD,36,09,01,DD,36,17,60,DD,36, 
18,00,DD,56,17,DD,5E,18,21,01,00,01,71,02,C 
5,24,1 A,06,01,B8,20,OD,3E,158D 
2270 DATA FF,DD,77,28,E5,3E,01,CD,90,BB,18, 

19,06,00,B8,20,08,3E,20,DD,77,28,E5,18 , OC,D 
D,7E,32,DD,77,23,E5,3E,03,CD,90,BB,E1,E5,D5 
,CD,75,BB,DD,7E,28,CD,5A,BB,D1,E1,C1,3E,19, 
BC,20,03,26,00,2C,13,OB,3E,00,B8,20,84,3E,0 
0,B9,20,AF,DD,36,14,09,DD,21 AB 
2280 DATA 36,15,09,DD,36,16,09,21,18,OF,22, 
F0,7F,21,18,0B,22,F2,7F,3E,02,CD,90,BB,2A,F 
2,7F, CD, 75, BB, 3E, F8 , CD, 5A, BB, 3E, F1, CD, 5A, BB 
,3 E,F1,CD,5A,BB,3E,F1,CD,5A,BB,3E,F7,CD,5A, 
BB, 3E,00,CD,90, BB , 3E, 01,CD, 96, BB, 21,02,1B, C 

D, 75,BB,06,06,11,00,7A,CD,22DA 

2290 DATA 23,8-1,21,04 , IB-,CD, 75,BB ,06,06,11, 
06,7A,CD,23,81,21,07,1 B,CD,75,BB,06,06,1 1,0 

C, 7A,CD,23,81,21,16,1B,CD,75,BB,06,04,1 1,1F 
,7A,CD,23,81,21,18,IB,CD,75,BB,06,04,11,23, 
7A, CD,23,31,18,09,1A,CD,5A,BB,13,05,20,F8,C 
9,3E,01,CD,96,BB,3E,02,CD,19B1 

2300 DATA 90,BB,21,OA,1B,CD,75,BB,06,07,1 1 , 
12,7A,CD,23,81,21,14,22,CD,75,BB,06,06,1 1,1 
9,7A,CD,23,81,CD,OA,90,CD,E3,90,CD,74,90,DD 
,36,14,OA,DD,36,15,OA,DD,36,16,OA,CD,63,91, 
CD,00,94,CD,B4,92,DD,36,1 F,04,DD,36,1E,00,D 
D , 36,20,03,DD,36,22,00,DD,1E10 
2310 DATA 36,46,00,21,00,7E,3E,03,06,06,77, 
23,05,20,FB,3E,02,CD,90,BB,DD,36,21,01,CD,2 

4, BB,CB,47,20,24,CB,4F,20,38,CB,57,20,4C,CB 
,5F,20,61,DD,36,21,00,DD,7E,20,FE, 00,28,6F, 
F E , 01,CA,82,82,FE,02,CA,DE,82,C3,34,83,2A,F 
0,7F,2D,CD,75,BB,CD,60,BB,1FBC 

2320 DATA FE,FF,28,DE,DD,7E,20,FE,01,CA,82, 
82,18,4A,2A,FO,7F,2C,CD,75,BB,CD,60,BB,FE,F 
F, 28,C6,DD,7E,20,FE,00,28,35,C3,82,82,2A,FO 
,7F,25,CD,75,BB,CD,60,BB,FE,FF,2B,AE,DD,7E, 
20, FE,03,CA,34,83,C3,DE,82,2A,FO,7F,24,CD, 7 

5, BB,CD,60,BB,FE,FF,28,95,2BDÎ 

2330 DATA DD,7E,20,FE,02,CA,DE,82,C3,34,83, 
DD,36,20,00,2A,FO,7F, "2D,CD,75,BB,CD,60,BB,F 

E, 20,28,12,CD,03,91,FE,02,28,OE,DD,7E,21.FE 
,01, CA, 95,81 ,C3,8C,83,CD,BD,83,2A,F0,7F,CD, 
75,BB,3E,Fl,CD,5A,BB,2A,FO,7F,2D,22,FO,7F,C 

D, 75,BB,3E,F0,CD,5A,BB,CD,2BFE 

2340 DATA 37,91 , 26,7E , DD . 6E, 1F, 23,3E, FF , BD , 
20,02,2E,00,36,00,DD,75,iF,CD,3D,91,C3,3F,8 
4, DD, 36,20,01,2A,FO,7F,2C,CD,75,BB , CD , 60 , BB 
,F E,2 0,2 8,12,CD,03,91,FE,02,28,OE,DD,7E,21 , 


FE,01,CA,95,81,C3,8C,83,CD,BD,83,2A,F0,7F,C 

D,75,B8,3E,F1,CD,5A,BB,2A,23E3 

2350 DATA FO,7F,2C,22,FO,7F , CD,75, BB,3E,F3, 

CD,5A,BB,CD,37,91,26,7E,DD,6E,1F,23,3E,FF,B 

D,20,02,2E,00,36,01,DD,75,1F, CD,3D,91,C3,3F 

,84,DD,36,20,02,2A,FO,7F,25,CD,75,BB,CD,60, 

BB,FE,20,28,12,CD,03,91,FE,02,28,OE,DD,7E,2 

1,FE,01,CA,95,81,C3,8C,83,2409 

2360 DATA CD,BD,83,2A,FO,7F,25,22,FO,7F,CD, 

75,BB,3E,F5,CD,5A,BB,3E,F1,CD,5A,BB,CD,37,9 

1,26,7E,DD,6E,1 F,23,3E,FF,BD,20,02,2E,00,36 

,02,DD,75,1F,CD,3D,91,C3,3F,84,DD , 36,20,03, 

2A,FO,7F,24,CD,75,BB , CD , 60, BB, FE, 20,28,1 1,C 

D, 0 3,91,FE,02,28,OD,DD,7E, 2479 

2370 DATA 21,FE,01,CA,95,81,18,35,CD,BD,83, 
2A,F0,7F,CD,75,BB,3E,F1,CD,5A,8B,3E,F7,CD,5 
A,BB,2A,FO,7F,24,22,F0,7F,CD,37,91,26,7E,DD 
,6E,1F,23,3E,FF,BD,20,02,2E,00,36,03,DD,75, 
1F,CD,3D,91,C3,3F,84,26,7D,DD,6E,22,23,3E,F 
F,BD,20,02,2E,00,DD,75,22,2332 
2380 DATA 7E , 4F, DD,7E,20,CB,4F,28,03,79,18, 
03,79,C6,02,FE,00,CA,C4,81,FE,01,CA, DC, 81,F 

E, 02,CA,F4,81,C3,0D, 32,26,7E,DD,6E, 1E,23,3E 
,FF,BD,20,02,2E, 00, DD,75,1E,7E,FE,00,28,OA, 
FE ,01 ,28,21,FE,02,28,38,18,4B,2A,F2,7F,CD,7 
5,BB,3£,20,CD,5A,BB,2A,F2,21BD 

2390 DATA 7F,2D,22 , F2,7F, CD , 75,BB , 3E,F2,CD, 

5A,BB,C9,2A,F2,7F,CD,75,BB,3E,20,CD,5A,8B,2 

A,F2,7F,2C,22,F2,7F,CD,75,BB,3E,F4,CD,5A,BB 

,C9,2A,F2,7F,25,22,F2,7F,CD,75,BB,3E,F6,CD, 

5A , BB , 3E , 20, CD, 5A, BB, C9,2A, F2,7F , CD , 75, BB , 3 

E,20,CD,5A,BB,3E,F8,CD,5A,2AC7 

2400 DATA BB,2A,F2,7F,24,22,F2,7F,C9,DD,46, 

27,DD,4E,27,0D,20,FD,05,20,F7,C3,95,81,B91 

2410 MODE 2 

2420 PRINTs PRINT:PRINT 

2430 PRINT"- Si vous utilisez une disquette 
: " 

2440 PRINT"- 

__ _ _ H 

2450 PRINT" * Mettre la disquette cont 

enant le programme: - SERPENT.BAS 
2460 PR INT SPRINT SPRINT:PR INT SPRINT 
2470 PRINT"- Si vous utilisez .une cassette: 

I» 

2480 PRINT"- 

__Il 

2490 PRINT" * Mettre les Fichiers créé 

s par ce programme a la suite du programme: 
- SERPENT.BAS -" 

2500 PR INT sF'RINT" * Puis appuyez sur 

REC Si PLAY-" 

2510 PR INT sF'RINT sF'RINT :PRINT :PRINT 
2520 PRINT" Lorsque vous etes prêt APPUYEZ 
SUR UNE TOUCHE" 

2530 CALL 4BB06 : MEMORY SiAOOO 
2540 SAVE" ! dessin",b ,45A00 ,S<520 
2550 SAVE " ! tab 1 e ",b ,46000,2501 
2560 SAVE" ! musi q", b , !<7A00, S<200 
2570 SAVE" Iserpi",b,49000,4330 
2580 SAVE" !serp2",b,49400,430 
2590 SAVE" ! serp3",b,48000,4600 
2600 END 

2610 PRINT CHR$<7)sPRINT"ERREUR ....... lig 

ne: " ; 1 i g 
2620'END 


2630 PR INT"ligne :";liqs" OK" 

2640 RETIJRN 
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UTILITAIRE 


VERIFICATEUR V3 

POUR PCW 8256/8512 


Ce vérificateur basic ne comporte malheureusement pas 
tous les avantages de son homologue sur CPC. Cepen¬ 
dant, en attendant mieux, il nous paraissait indispen¬ 
sable de vous donner dès le départ une bonne base 
de travail* Rassurez-vous, nous tâcherons très prochai¬ 
nement de vous fournir une véritable copie de l'origi¬ 
nal, avec tout ce que cela suppose... 


Pour utiliser Vérif V3, rien de 
plus simple. Tapez le listing en 
prenant bien garde de ne pas 
commettre d’erreurs de saisie 
(il est recommandé de s’y pren¬ 
dre à deux fois avant de 
s’avouer vaincu par un syntaxe 
error...), et sauvegardez-le sur 
une disquette sûre. Vous 


n’aurez plus, dès à présent 
qu’à taper vos listings, tout en 
étant décontractés, et pour 
cause, et, TRÈS IMPORTANT, à 
les sauvegarder en ASCII. Pour 
ce faire, procédez de la façon 
suivante : 

tapez SAVE “nomprogS . bas”, 
a 


10 cls$=CHR3 <27 ) +" E" +CHE$ (27) 4" II" 

20 ceu$=CHR$ <27)4"R"4CHR$(0) 

30 cf$=CHR$(27)4"R"4CHRS(1) 

40 DEF FN locateS(x, y)=CHR&(27)4"Y" 
4CHRS (324y ) 4CHR$ <324x) 

50 PRINT clsS 

60 x=28: y=3 :GOSUB 350:PRINT "VERIFI 
CATEUR V3 pour PCW 8256-8512" 

70 x=36:y=5: GOSUB 350: PRINT CHR$.<16 
4);" AMSTRAD MAGAZINE" 

80 x=26:y=6:GOSUB 350:PEINT "auteur 
s: Eric MISTELET & Georges BRIZE" 

90 VIDTH LPRINT 80 

100 x=l:y=9: GOSUB 350:INPUT "Nom d 
u programme à vérifier' : " ; prgmS 
110 x=l : y=10: GOSUB 350-.INPUT "Sort 
ie sur (E)cran ou (I)rnprimante ";rS 
120 r$=UPPERS<r$) 

130 IF r$="I" THEN prt=l:GOTO 160 
140 IF rSO"E" THEN 110 
150 PEINT cls$ 

160 OPEN "i",1, prgmS 
170 WHILE EOF .<1)0-1 
180 LINE INPUT #1, aS 


— nomprogS désignant le nom 
du programme, et le (a), signi¬ 
fiant que le mode de sauve¬ 
garde doit être impérativement 
ASCII. Cette opération réalisée, 
lancez le vérificateur par RUN, 
suivi de l’appellation sous 
laquelle vous l’aurez sauve¬ 
gardé. Aussitôt, le programme 
vous demandera de lui fournir 
le nom du programme à véri¬ 
fier ; exemple : nomprogS,bas 
(n’oubliez pas le "bas”, sans 
lequel le vérificateur ne pour¬ 
rait trouver sa source), 
indiquez-lui ensuite si vous 
désirez obtenir un listing écran 
ou imprimante, et le tour est 
joué. 

190 n=0:v=0 

200 FOR 1=1 TO LEN(aS) 

210 n=n4ASC(UPPERS(MIDS(a$, 1,1))) 
220 NEXT 

230 FOR 1 = 1. TO LEN(aS) 

240 c$=MIDS(a$,i,1): IF prt = l THEN L 
PEINT cS;:ELSE PRINT cS ; 

250 d=i/35: IF d=INT(d) THEN IF d=l 
THEN GOSUB 300:ELSE GOSUB 330 
260 NEXT 

270 IF v=0 THEN GOSUB 300:ELSE IF i 
>36 THEN GOSUB 330 
280 WEND 
290 END 

300 IF prt THEN LPRINT TAB(37);ceu3 
4CHR3(91);cf$;n;ceuStCHRS(93); : LPRI 
NT cf$ :ELSE PEINT TAB<37);CHRS<162) 

;n;CHRS(166) 

310 v=l 
320 RETURN 

330 IF prt THEN LPRINT:-ELSE PRINT 
340 RETURN 

350 PRINT FN locateSCx,y);:RETURN 










Othello (PCW) 


P our ceux qui l'igno¬ 
rent, le jeu d’Othel¬ 
lo est une joute in¬ 
tellectuelle entre 
deux adversaires, 
se déroulant sur une grille de 
huit cases sur'huit (coordon¬ 
nées Al à H8). Débutant la par¬ 
tie avec deux pions de la cou¬ 
leur de son choix (noir ou 
blanc), chaque joueur doit s’ef¬ 
forcer de prendre un maximum 
de positions concurrentes par 
un entourage judicieux. Le 
gagnant est celui qui, en fin de 
partie, totalise le plus de points. 
Ce programme sympathique, 
résultat d’un travail personnel 


(non recopie ou adaptation d’un 
listing déjà publié), permet de 
jouer à deux (affichage, validité 
des coups et comptage des 
points) ou seul contre l’ordina¬ 
teur. Dans ce dernier cas 
(pions blancs pour le joueur), 
deux types de jeu sont propo¬ 
sés : 

— Avec algorithme «stan¬ 
dard » : la force de jeu est 
constante. 

— Avec algorithme « évolu¬ 
tif » : le programme acquiert 
une expérience en fonction des 
parties précédentes. Un fichier 
(EVOL) alors créé sur disquette, 


permet la mémorisation des 
coups du vainqueur. 
L’algorithme utilisé pour le 
choix d’un coup parmi ceux 
possibles, est basé sur deux 
facteurs importants du jeu 
d’Othello : la position (stratégie) 
et le nombre de points mar¬ 
qués. Pour guider le choix de 
position, un tableau (8,8) de 
nom cherche%(i,j) est initialisé 
avec une pondération pour 
chaque case figée dans le cas 
de l’algorithme standard, et 
sans cesse modifiée à l’aide du 
fichier disque dans le cas de 
l’algorithme évolutif. Le nombre 
de points est, pour chaque 


case jouable, calculé avant de 
jouer. Le coup final retenu est 
celui qui, à pondération maxi¬ 
mum, donne le gain maximum. 
En fin de partie, seul le nombre 
de points marqués détermine le 
coup joué. A titre d’exemple de 
pondération, les quatre coins 
Al, A8, H1 et H8, qui une fois 
pris sont acquis jusqu'à la fin 
du jeu, ont (dans le cas de 
l’algorithme standard) la pondé¬ 
ration maximum de 8. Les 
coups B2, B7, G2 et G7 
« ouvrant » ces coins, ont la 
pondération maximum de 3. 

Aurélia De Geeter 
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10 ' c 

20 REM *-** programme othello le 15/ E 

06/87 Aurélia De Geeter *** 

30 * [ 

40 MEMORY &HEFFF C 

50 REM * routine de définition de c E 

aractère * 

60 DIM çherche%(8,8) [ 


70 DIM ecran%<10, 10) : DIM ecrposs7.(l C 
0, 10) 

80 DIM cqupbc%<80); DIM coupnr%<80) C 
90 DATA &H21,0,&HB8,&HED,&H4B,8,&HF I 
0,&HCB, &H20, &HCB, &H21,&H38, &H0E,&HC 
B,&H20, &HCB, &H21, &H38,&H0B,&HCB,&H2 
0,&HCB,&H21, &H38,8,&H18,7,4, &H18,&H 
EF, 4,. &H18, &HF2,4,9, 5, 8, &H11,0, &HF0, 
&H1A, &H77, &H13,&H23,5,&H20,&HF9,&HC 
9 

100 DATA &H01,&H0A,&HF0,&HCD,&H5A,& C 
HFC,&HE9, &H00,&HC9 

110 FOR i=&HF00A TO &HF00A+47:READ C 
n:POKE i.n:NEXT . 

120 FOR i=&HF040" TO &HF040+8:READ n t 
:POKE i , n: NEXT 

130 defcar“/.=&HF040 [ 

140 REM * déf du coin haut gauche p I 
lein * 

150 DATA 0, 0, 0, &H0F, &H1F, &H1F, &H1F, I 
&H1F,&HA6, O' 

160 FOR i=&HF000 TO &HF000+9:READ n I 
: POKE i,n:NEXT 

170 CALL defcar% I 

180 REM * déf du coin haut droite p I 
lein * 

190 DATA 0,0, 0,&HF0, &HF8,&HF8,&HF8, T 
&HF8,&HAC,0 

200 FOR i=&HF000 TO &HF000+9:READ n I 
:POKE i , n : NEXT 

210 CALL de f car”/ C 

220 REM * déf du coin bas droite pl C 
ein* 

230 DATA &HF8,&HF8,&HF8,&HF8,&HF0,0 I 
,0,0,&HA9, 0 

240 FOR i=8iHF000 TO &HF000+9:READ n [ 
:POKE i,n:NEXT 

250 CALL defcar% C 

260 REM * déf du coin bas gauche pl C 
ein * 

270 DATA &H1F,&H1F,&H1F,&H1F,&H0F,0 C 
,0,0,&HA3, 0 

280 . FOR i=.&HFOOO TO &HF000+9:READ n I 
:POKE i,n:NEXT 

290 CALL defcar% t 

300 REM * 'déf du pavé bas demi-plei t 
n * 

310 DATA 0,0,0,&HFF,&HFF,&HFF,&HFF, t 
&HFF, &HAA,0 

320 FOR i=&HF000 TO &HF000+9:READ n t 
:POKE i , n: NEXT 

330 CALL defcart t 

340 REM -* déf du pavé haut deml-ple t 

in •* 

350 DATA &HFF,&HFF,&HFF,&HFF,&HFF,0 t 
, 0,0,&RAB,0 

360 FOR i=&HF000 TO &HF000+9:READ n C 
: POKE i,n :NEXT 

370 CALL defcart t 

380 REM * init * t 

390 esc$=CHRS <27):clsï=esc$+"0"+esc I 

$+"E"+esc$+"H" : iv$=escî+"p":vi$=esc 
$+" q" 

400 1ig$=" A B C D I 

E F G H M 

410 WIDTH 255: scor'eb%=2: scoren%=2: c I 
oup7.= l 


168 I 
3819 1 

170 I 
1026 I 
2998 I 

1156 I 
2309 I 

2053 ] 
11217 ) 


2897 1 
3051 ] 
2975 ] 

1027 ] 

2571 I 

2457 1 

2972 ] 

958 3 
2601 3 

2502 3 

2967 3 

953 3 
2472 3 

2487 3 

2971 3 

957 3 
2482 3 

2457 3 

2975 3 

961 3 
2405 3 

2572 3 

2970 3 

956 3 
2501 3 

2577 3 

2974 3 

960 3 
903 3 
4222 3 

2329 3 
2585 3 


iv$;" — Othe C 


Fin" ; 
Deux 


Jeu s C 


3 - Jeu é I 


'Choix <0 à [ 


OR <a$ [ 


420 DEF FNposS<x, y)=esc$+"Y"+CHR$<3 t 
2+x)+CHR$ <32+y> 

430 PRINT clsS; C 

440 Xfd%=35:yfd%=0:yfc%=2:xfe%=48: y [ 
feY,=2:GOSUB 1520 
450 PRINT FNposS <1,36) 
llo - ";viS; 

460 PRINT FNposSCIO, 5) 

470 PRINT FNposS <12,5 > 
j oueurs"; 

480 PRINT FNposS<14,5) 
tandard"; 

490 PRINT FNposS<16,5) 
volutif"; 

500 PRINT FNposS<28,0) 

3) : 

510 aS=INKEYS:WHILE <aS<"0") 

>"3"):aS=INKEYS: VEND 

520 IF a$="0" THEN PRINT esc$+"e"1 
END 

530 indjeu%=ASC<a$)-48: IF indjeu%=l ( 
THEN 560 

540 IF indj eu%=2 THEN FOR i = 0 TO 7: 1 

FOR j =0 TO 7 : READ cherche”/. <i , j ) : NEX 
T :NEXT 

550 IF indj eu%=3 THEN IF FINDSO'evo i 
1")="" THEN FOR 1=0 TO 7 : FOR j=0 TO 
7: cherche”/.<i, j )=1: NEXT: NEXT: ELSE O 
PEN "I", 1,"evol": FOR i = 0 TO 7 : FOR j 
= 0 TO 7 : INPUT # 1, cherche”/. <i , j ): NEX 
T :NEXT: CLOSE 1 

560 GOSUB 1050 [ 

570 bc”/.= l: x”/.=ASC<"5“ )-48: y”/.=ASC<"D" [ 
)-64:GOSUB 1180 

580 icoupbc%=0:icoupnr%=0 J 

590 DATA 8,3,7,7,7,7,3,8 [ 

600 DATA 3,3,4,4,4,4,3,3 ( 

610 DATA 7,4,7,7,7,7,4,7 t 

620 DATA 7, 4,7, 7,7,7,4,7 ( 

630 DATA 7,4,7,7,7,7,4,7 [ 

640 DATA 7,4,7,7,7,7,4,7 t 

650 DATA 3,3,4,4,4,4,3,3 [ 

660 DATA 8,3,7, 7, 7,"7,3, 8 t 

670 x%=ASC <"4")-48:y%=ASC <"E")-64 : G E 
OSUB 1180 

680 bc”/.=2: x"/.=ASC<"4" )~48: y”/.=ASC<"D" E 
)-64:GOSUB 1180 

690 x%=ASC <"5")-48 :y%=ASC <"E">-64 : G E 
OSUB 1180 

700 xfd”/.=64: yfd”/.= 0: yfc%=2: xf e”/.=88: y E 
fe“/.=5: GOSUB 1520 

710 nbcoup%=0:PRINT FNposS<1,65);iv E 
$;STRINGS <24," ");FNposS <1,67);"cou 
p n‘";nbcoup%;” scores"; vis ;FNposS 
<3,66);"blancs : ";FNposS<4,66);"no 

1rs : "; 

720 REM * Cadre des coups passibles E 

* 

730 xfd%=64:yfd%=6:yfc%=8:xfe%=88: y E 
fe%=14:GOSUB 1520 

740 ypaint%=9:xpoint%=66:PRINT FNpa ! 
sS<7,65);ivS;" coups permis - point 
s ";vi$; 

750 REM * Cadre des coups joués * E 
760 xfd”/.=64: yfd%=15: yfc”/„=17: xfe”/.=88 E 
;yfe%=28 :GOSUB 1520 

770 ycoupbc%=18:xcoupbc%=66:ycoupnr E 
7.=23: xcoupnr%=66 : PRINT FNposS <16,65 
);iv$;” - coups joués - “;vi 


780 WHILE (scoreb%+scoren%<>64):nbc I 
oup%=nbcoup%+l 

790 PRINT escS+"f";FNposS <1,74);iv$ E 
; nbcoup%; vis ; FNposS <3,78) ; scoreb?.; F 
NposS <4,78); scoren?, ; 


2892 3 

933 3 
3074 3 

2766 3 

1957 3 
2639 3 

2597 3 

2684 3 

2342 3 

3177 3 

2199 3 

2628 3 

4770 3 


11697 3 


801 3 
2786 3 

1600 3 
1246 3 
1216 3 

1239 3 

1240 3 

1241 3 

1242 3 
1221 3 
1244 3 
2449 3 

2788 3 

2452 3 

3082 3 

8950 3 


2346 3 
3145 3 
5037 3 


2101 3 
3249 3 

6616 3 


3125 3 
5582 3 
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Othello 


800 bc%=1: adv%=2 :GOSUB 1380 I 

810 IF couposs%=0 THEK IF indbouc% [ 
THEN 1020 :ELSE indbouc%=l: GOTO 910: 
ELSE indbouc%=0 

820 GOSUB 1590: REM * coups possible C 
s * 

830 PRINT FNposS(29,0);escSt"J"+esc I 
$+"e";"Coup blanc (A1-H8) : "; 

340 INPUT ; a$ : IF aS=" '• THEN 830:ELSE I 
yp%=ASC (LEFTS<a$ , 1))-64 : xp%=ASC CRI 
GHTS(a$,l))-48:IF yp%<l OR yp%>8 TH 
EN 830:ELSE IF xp%<l OR xp%>8 THEN 
830 

850 IF ecranï(xp%,yp%)<>0 THEN PRIN C 
T FNposS<30,0)j"coup déjà pris ... 
<RC>" ; : aS=INKEYS:WHILE <a$=' ,M ) : a$=I 
NKEYS:WEND:GOTO 830 

860 IF ecrposs%(xp%,yp%)=0 THEN PRI C 
NT FNposS(30,0);"coup interdit ... 
<RC>" ; : a$=INKEYS: WH ILE (aS= ,,M ) : a$=I 
NKEY$ ;WEND:GOTO 830 

870 PRINT esc$+"f"; : REM * plus de c C 
urseur * 

880 GOSUB 1250 [ 

890 PRINT FNposS(1,74);iv$;nbcoup%; [ 
vi$;FNposS(3,78;;scoreb%;FNposS(4,7 
8);scorenï; 

900 GOSUB 1650:REM * coups joués bl C 
ancs * 

910 bc%=2:adv%=l: GOSUB 1380 [ 

920 IF couposs%=0 THEN IF indbouc% C 
THEN 1020:ELSE indbouc%=l: GOTO 800: 
ELSE indbouc%=0 

930 GOSUB 1590: REM •* coups passible C 

s * 

940 IF indj eu%>1 THEN 1730:REM * no l 
irs jouent seuls ... * 

950 PRINT FNposS(29,0);escS+"J"+esc I 
$+'• e" ; " Coup noir (A1-H8) : 

960 INPUT;a$: IF aS="" THEN 950:ELSE [ 
yp7»=ASC (LEFTS (aS , 1 ) ) —64 : xp%=ASC (RI 
GHT$(aS,1))-48:IF yp%<! OR yp%>8 TH 
EN 950: ELSE IF xp.%<l OR xp%>8 THEN 
950 

970 IF ecran%(xp%,yp%)<>0 THEN PRIN C 
T FNposS(30,0);"coup déjà pris ... 
<RC>"; ;a$=INKEYS:WHILE (aS="">:aS=I 
NKEYS:WEND:GOTO 950 

980 IF ecrposs"/. (xp%, yp%) = 0 THEN PRI C 
NT FNposS(30,0> i "coup interdit ... 
<RC>"; :a$=INKEYS:WHILE <a$="">:aS=I 
NKEYS:WEND: GOTO 950 

990 PRINT escSt"f"; : REM * plus de c C 
urseur * 

100Ô GOSUB 1250 C 

1010 GOSUB 1690:REM * coups joués n I 
oirs * 

1020 WEND:PRINT FNposS(1,74);nbcoup C 
%; FNposS (3,78); scoreb7.; FNposS (4,78) 

;scoren%;FNposS(29,0);esc$+"e"+esc$ 
1"J";"<RC> pour continuer a$= 

INKEYS : WHILE aS="" : aS=INKEYS:WEND 
1030 IF indj eu%=3 THEN IF scoreb%>= C 
scorenrï THEN GOSUB 1930:ELSE GOSUB 
1960 

1040 GOTO 430 • C 

10.50 REM * affichage écran * I 

1060 PRINT clsS;FNposS(0|10);ligS C 
1070-PRINT FNposS(1,10);CHRS(&H96); I 
: FOR i = 0 TO 6:PRINT STRINGS(5,CHRS( 
&H9A));CHRS(&H9E) ; : NEXT i:PRINT STR 
INGS(5,CHRS(&H9A)) ; CHRS(&H9C); 

1080 FOR j =2 TO 24 STEP 3 :GOSUB 114 C 
0: NEXT j 


1567 1 
5375 I 

2393 I 
3702 I 
8475 1 


7619 1 

7673 1 

2659 I 

808 I 
5088 I 

2608 I 

1569 1 
5375 I 

2395 3 
3521 I 
3665 ] 
8487 ] 


7625 3 

7679 3 

2662 3 

841 3 
2613 3 

10706 3 


4723 3 


725 3 
1707 3 
1992 3 
8167 3 


2596 3 


1090 PRINT FNposS(25,10);CHRS(&H93) C 
; : FOR i = 0 TO 6:PRINT STRINGS(5,CHRS 
(&H9A));CHRS(&H9B); :NEXT i:PRINT ST 
RINGS(5,CHRS(&H9A));CHRS(&H99); 

1100 PRINT FNposS(26,10) ; ligS [ 

1110 x%=24: FOR 1=1 TO 8:PRINT FNpos C 
S(x%,7);i;FNposS(x%,59);i; :x%=x%-3: 
NEXT i 

1120 RETURN [ 

1130 REM * une ligne du cadre * C 

1140 PRINT FNposS(j,10);CHRS(&H95); C 
: FOR 1=0 TO 7 :PRINT STRINGS(5,CHRS( 
&H20));CHRS(&H95);: NEXT i 
1150 PRINT FNposS(j+1,10);CHRS(&H95 C 
); : FOR i=0 TO 7:PRINT STRINGS(5,CHR 
S(&H20));CHRS(&H95); :NEXT i 
1160 PRINT FNposS(j+2,10);CHRS(&H97 I 
) ; : FOR i=0 TO 6:PRINT STRINGS(5,CHR 
S(&H9A));CHRS(&H9F); :NEXT i:PRINT S 
TRINGS(5,CHRS(&H9A));CHRS(&H9D) ; 

1170 RETURN [ 

1180 REM * affichage pion * C 

1190 REM -* en x%, y% , blanc si bc%= C 
1, noir si bc%=2 * 

1200 xpion%=23—3*(x%-l);ypion%=(y%- [ 
l)*6tl2:PRINT CHRS(7); 

1210 PRINT FNposS(xpion%,ypion%) ;: I I 
F bc%=l THEN PRINT CHRS(&HA6);CHRS( 
&HAA);CHRS(&HAC);:ELSE PRINT CHRS(& 
H96);CHRS(&H9A);CHRS(&H9C); 

1220 PRINT FNposS(xpion%+l,ypion%); [ 
: IF bc%=l THEN PRINT CHRS(&HA3);CHR 
S(&HAB);CHRS(&HA9); :ELSE PRINT CHRS 
(&H93);CHRS(&H9A);CHRS(&H99); 

1230 écran’/. (x%, y%) =bc% [ 

1240 RETURN [ 

1250 REM * recherche validité du co t 
up et calcul points marqués * 

1260 gain%=0; FOR sx%=-l TO 1 : FOR sy C 
%=-l TO 1:GOSUB 1320:NEXT:NEXT 
1270 IF gain%=0 THEN PRINT FNposS(3 t 
0,0);"coup interdit <RC>"; :aS=INKEY 
$:WHILE aS=“":a$=INKEYS:WEND:RETURN 


8207 3 


1722 3 
4635 3 


708 3 
1836 3 
5718 3 


5811 3 


8288 3 


713 3 
1606 3 
2966 3 

3295 3 

8043 3 


8111 3 


1235 3 
711 3 
4287 3 

4013 3 

6654 3 


1280 x%=xp%:y%=yp %:GOSUB 1180 I 

1290 IF bc%=l THEN scoreb%=scoreb%+ C 
gain%+l:scoren%=scoren%-gain%: coupb 
c% (icoupbc%) =x%: coupbc’/. (icoupbc%+l ) 
=y%:icoupbc%=icoupbc%+2 
1300 IF bc%=2 THEN scoreb%=scoreb%- C 
gain%:scoren%=scoren%tgain%+l:coupn 
r% (icoupnr%) =x%: coupnr’/. (icoupnr%+l) 
=y%:icoupnr%=icoupnr%+2 
1310 RETURN I 

1320 IF ecran%(xp%-sx%,yp%-sy%)Oad I 

v% THEN RETURN 

1330 i = l: WHILE (ecran%(xp%-i*sx%, yp C 
%-i*sy%)=adv%):i=i+l:WEND 
1340 IF ecran% (xp%-i*sx%,yp%-i*sy%) C 
=0 THEN RETURN 

1350 FOR j = l TO (i-1.) : x%=xp%-j-»sx%: [ 
y%=yp%-j*sy%:GOSUB 1180;gain%=gain% 
tl 

1360 NEXT j C 

1370 RETURN C 

1380 REM * test si au moins un coup [ 

possible * 

1390 FOR i=l TO 8 :FOR j = l TO 8 :ecrp t 
oss%(i,j) = 0 :NEXT:NEXT 

1400 couposs%=0: FOR xp%=l TO 8 : FOR C 
yp%=l TO 8: IF écran’/. (xp%, yp%) =0 THE 
N GOSUB 1430 

1410 NEXT:NEXT:IF couposs%<>0 THEN C 
RETURN 


1753 3 
8155 3 


8310 3 


709 3 
3071 3 

3667 3 

3034 3 

4329 3 


659 3 
715 3 
2935 3 

3527 3 

5029 3 


2769 3 


52 



1420 PRINT FNposS<30,0aucun coup t 
n 1 est possible . . . <RC>"; :a$=INKEY 

$:VHILE <a$="") : a$=INKEYS: VEND:RETU 
RN 

1430 REM * stockage des coups possi E 
blés * 

1440 cpup7.= 0 : FOR sx%=-l TQ 1 : FOR sy E 
%=-l TO liGOSUB 1460:NEXT:NEXT 
1450 RETURN E 

1460 IF.ecran%<xp%-sx%,yp%-sy%)<>ad E 
v% THEN RETURN 

1470 1 = 1: VHILE (écran*/. <xp%-i *sx%, yp E 
*-1*sy%)=adv%> : i = 1 +1 : VEND 
1480 IF ecran%(xp%-i»sx%, yp%-i*sy%) [ 
=0 THEN RETURN 

1490 FOR j = l TO (1-1) : coup%=caup%+l C 
:NEXT j 

1500 ecrposs'/. <xp%, yp%) =coup%: coupos C 
s%=couposs%+l: 

1510 RETURN C 

1520 REM * fenetre xfd,yfd xfe.yfe 1 
coupure yfc * 

1530 PRINT FNposS<yfd%,xfd%);CHRS<1 [ 
50) ; STRINGS <xfe%-xfd%,CHRS(154)); CH 
RS <156) ; 

1540 FOR 1=1 TO <yfc%-yfd%)-l:PRINT t 
FNposS<yfd%+i, xfd%> ! CHRS <149);FNpo 
sS <yfd%+i,xfe%+l) ; CHRS<149) ; :NEXT 1 

1550 IF yfc%< >yfd% THEN PRINT FNpos [ 
S < yf c%,xf d%);CHRS <151); : FOR 1 = 1 TO 
<xfe%-xfd%>:PRINT CHRS<154);:NEXT:P 
RINT CHRS <157); 

1560 FOR 1=1 TO <yfe%-yfc%)-l:PRINT C 
FNposS <yfc%+i,xfd%) ; CHRS(149) ; FNpo 
sS<yfc%+i,xfe%+l);CHRS<149) ; :NEXT i 

1570 PRINT FNposS<yfe%,xfd%);CHRS<1 [ 
47); STRINGS <xfe%-xfd%, CHRS <154)) ; CH 
RS<153); 

1580 RETURN C 

1590 REM * affichage des coups poss C 
ibles * 

1600 ypoint%=9:xpoint%=66 t 

1610 FOR i=0 TO 4:PRINT FNposS<ypoi t 
nt%+i,66); STRINGS <22," "); :NEXT 
1620 FOR 1 = 0 TO 8 : FOR j=0 TO 8 E 

1630 IF ecrpossï< i , j ) < > 0 THEN PRINT C 
FNposS <ypoint%, xpointü) ; CHRS <j +64) 

;CHRS <i+48) ; ecrposs*<1, J) + l; : xpoint 
%=xpoint%+6: IF xpoint%>89 THEN xpol 
nt%=66:ypoint%=ypoint%+l 
1640 NEXT-j:NEXT 1 :RETURN C 

1650 REM * affichage des coups blan [ 
es joués * 

1660 PRINT FNposS <ycoupbc%, xcoupbc*/. C 
) ; i vS ; CHRS (coupbc*/. <icoupbc%-l ) +64 ) ; 
CHRS <coupbc% <icoupbc%-2)+48);;vi 
S; 

1670 xcoupbc%=xcoupbc%+3 : IF xcoupbc C 
%>86 THEN xcoupbc%=66:ycoupbc%=ycou 
pbc%+l 

1680 RETURN £ 

1690 REM * affichage des coups noir C 

s Joués * 

1700 PRINT FNposS<ycoupnr%,xcoupnr* [ 
) ;CHRS(coupnrX<icoupnr%-1)+64) ; CHRS 
<coupnr%<icoupnr%-2>+48);"—"; 

1710 xcoupnr%=xcoupnr%+3: IF xcoupnr £ 
%>86 THEN xcoupnr%=66:ycoupnr%=ycou 
pnr%+l 

1720 RETURN £ 

1730 REM * recherche de coup pour 1 £ 

es noirs * 


6722 ] 

2635 1 

4042 ] 

714 1 
3076 3 

3672 3 

3039 3 

2550 3 

3210 3 

711 3 
3058 3 

4654 3 

6332 3 

7379 3 

6333 3 

4662 3 

718 3 
2671 3 

1615 3 
4065 3 

1748 3 
10607 


1680 3 
2887 3 

6610 3 


4961 3 

719 3 
2851 3 

6259 3 


5118 3 


714 3 
2849 3 


1740 PRINT FNposS<29,0);escS+"J";"R £ 
echerche coup noir ..." ; 

1750 cci%=0:ccj%=0:ccp%=0:ccn%=0 £ 
1760 REM * recherche du max de pond £ 
ération * 

1770 IF icoupnr%>40 THEN 1860:REM * £ 
recherche du couple points,pondéra 
tion maximum * 

1780 REM * recherche du couple pond E 
ération,points maximum * 


1790 FOR i = l TO 8 : FOR j = l TO 8 £ 

1800 IF <ecrposs%(i,j)<>Q) AND (che E 
rche% <i-l,j-1)>ccp%) THEN ccp%=cher 
che% <1-1,j-l> 

1810 NEXT:NEXT £ 

1820 FOR i = l TO 8 : FOR j=l TO 8 E 

1830 IF (cherche*<i—1,j-1)=ccp%) TH E 
EN IF (ecrposs*/. < i , j ) >ccn%) THEN ccn 
%=ecrposs% <1,J):cci%=i:ccj %=j 
1840 NEXT:NEXT £ 

1850 xp%=cci%:yp%=ccj%:GOTO 1000 £ 

1860 FOR i=l TO 8:FOR j=l TO 8 E 


1870 IF ecrposs'/. < i , j ) >ccn% THEN ccn £ 
%=ecrposs% <i,J) 

1880 NEXT:NEXT C 

1890 FOR i = l TO 8 : FOR j = l TO 8 
1900 IF ecrposs*<i,j)=ccn% THEN IF £ 
cherche*<i-l,j _ 1>>ccp% THEN ccp%=ch 
erche*Ci—1,j-1):cci%=i:ccj%=j 
1910 NEXT:NEXT £ 

1920 xp%=cci%:yp%=ccj%: GOTO 1000 
1930 REM * report des coups blancs £ 
* 

1940 FOR i=0 TO icoupbc%-l STEP 2:c £ 
herche*<coupbc*<i)—1,coupbc*<i+l)—1 
)=cherche%(coupbc*<i)—1,coupbc*<i+l 
)-l)+1:NEXT i:GOSUB 1990 
1950 RETURN E 

1960 REM * report des coups noirs * E 
1970 FOR i=0 TO icoupnr*-l STEP 2:c £ 
herche*(coupnr*(i)-l,coupnr*<i+l)-l 
>=cherche% <coupnr%‘Ci ) -1, coupnr*(i+l 
) —1)+1 :NEXT i:GOSUB 1990 
1980 RETURN E 

1990 REM * écriture de la nouvelle £ 
pondération * 

2000 OPEN "O",1,"evol": FOR i = 0 TO 7 £ 
: FOR j =0 TO 7:VRITE # 1, chercher. <i ; 
j):NEXT:NEXT:CLOSE 1 :RETURN 


3562 3 

1836 3 
2832 3 

5535 3 


3986 3 

1758 3 
4849 3 


930 3 
1752 3 
5988 3 


933 3 
1914 3 
1756 3 
3107 3 

937 3 
1759 3 
5969 3 


931 3 
1912 3 
2266 3 


7786 3 


719 3 
2229 3 
7924 3 


722 3 
3229 3 

6054 3 


Voir additif technique page suivante... 
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Othello 


ADDITIF TECHNIQUE 


La recherche de validité, ou 
le calcul du nombre de 
points marqués lors d’un 
coup, s’effectue, pour une 
position donnée, à l’aide 
d’une « fenêtre » de 8 cases 
autour de cette position. En¬ 
suite sont explorées, les di¬ 
rections parmi les huit pos¬ 
sibles ayant satisfait au test 
«pion adverse accolé à. la 
position examinée ». Pour 
éviter les tests de déborde¬ 
ment de tableau (assez 
lourds par le basic), 
ECRAN % est sur-dimen- 
sionné par rapport au jeu : 
Jeu d’Othello : 8x8 
ECRAN % : 10 X 10 

Le type de jeu choisi au 
début est mémorisé dans la 
variable 

INDJEU % : 

0 - Fin de jeu (retour vers le 
basic) 

1 - Jeu à deux joueurs 

2 - Jeu standard 

3 - Jeu évolutif 

La recherche automatique 
de coups, concernant le 
joueur aux pions noirs, se 
fait à l’aide du tableau 
CHERCHE % (8 x 8), conte¬ 
nant une pondération pour 
chacune des positions du 
jeu. 

- Dans te cas du jeu standard 
(INDJEU % =2), la pondéra¬ 
tion est fixe et initialisée à 
partir des dates (lignes 590 à 
560). 

- Dans le cas du jeu évolutif 
(INDJEU % =3), cette pondé¬ 
ration est initialisée d’après 
le fichier disquette EVOL, 
mis à jour à chaque fin de 
partie en incrémentant ladite 
pondération de 1 pour cha¬ 
que case jouée par le ga¬ 
gnant. 

La boucle de jeu s’effectue 
sur le total de points mar¬ 
qués par les deux joueurs 
(variables SCOREN % et 
SCOREB %, respectivement 
les scores du joueur noir et 
du joueur blanc, initialisés à 
2 au début du jeu et dont le 
total maximum ne peut dé¬ 
passer 64). Les coups joués 
par les deux adversaires sont 
mémorisés dans les 
tableaux COUPBC % et 


Définition des caractères 
lignes 50-370 


Initialisation 

lignes 380-420 


COUPNR % de 80 chacun et 
indicés par les variables 

ICOUPBC % et ICOU- 
PNR %. 

Chaque case du jeu d’Othel¬ 
lo est mémorisée dans un 
tableau de variables appelé 
ECRAN % La convention est 
la suivante : 

0 - Case vide 

1 - Case occupée par un pion 
blanc 

2 - Case occupée par un pion 
noir 



Init écran + 

Carde (520 -770) 



non ^ 

Coup blanc 



Coup 

noir 
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La ville infernale 


quoi bon partici¬ 
per au lustre ta¬ 
pageur d'une 
course folle en 
milieu exotique, 
lorsque la traversée d’une 
ville bien française suffit à 
satisfaire votre soif d’aven¬ 
ture ? Parce magnifique pro¬ 
gramme, vivez les affres d’un 
malheureux automobiliste, 
perdu dans un bled paumé de 
la France profonde.. 

Soient quatre listings basic 
à sauver sous les noms sui¬ 
vants : 

VILLE.BAS : lanceur du pro¬ 
gramme et règle du jeu. 

VI.BAS : RSX Basic étendu. 
V2. BAS -.mise en place RSX 
graphique. 

V3.BAS : programme princi¬ 
pal. 

suivi de quatre programmes 
chargeurs à effacer après 
usage : 


CHARGE 1 : chargeur de RSX 
Basic étendu. 

CHARGE2 : chargeur de RSX 
graphique. 

CHARGE3 : chargeur de 
transfert de table de 
caractères. 

CHARGE4 : chargeur de la 
nouvelle table de caractères. 

Le lancement de ces der¬ 
niers, engendre la création 
des fois fichiers ; VG R AP H. 

BIN, VCODE.TXT et VJ EU. 
CAR. 

Donc, avant le lancement du 
programme par RUN” VIL¬ 
LE.BAS”, vérifiez sur votre 
disquette l’existence des fi¬ 
chiers : VILLE.BAS, VI.BAS, 
V2. BAS, V3.BAS, VGRAPH. 
BIN, VCODE.TXT et 
VJEU.CAR. Dans ce cas, 
I ’a ven ture De ut commencer. 

Michel Fernandez 



5 'a sauver sous le nom VILLE.BAS C 

6 ' C 

10 OPTION RUN C 
20 REM ******* VILLE INFERNALE **** C 
********** 

30 REM copyright FERNANDEZ michel C 
40 MEMORY &HF605 C 
50 code=HIMEM-400:ati.jeu=code-256*8 C 
60 MEMORY ad.jeu-1 C 
70 échangé.j eu=code+3 I 


80 x$=CHR$(27):curson$=xî+"e":curso C 
ff$=x$+"f" 

90 cls$=xî+"E"+ x$+"H" ; inv$=x$+"p":n C 
orm$=x$+"q" 

100 DEF FNcu$ Cli , co)=x$ + "Y"+CHRS(32 I 
+ 1i> +CHRS(32+co) 

110 DEF FNf e$ Cli, co, ni,ne)=x$+"X"+C C 
HR$<32 + 11)+CHRS (32+co)+CHR$ <31 + nl) + 
CHRS <31+nc) 

120 PRINT FNfe$<0,0,32,90);cls$; cur C 
soff$; FNcu$ <0, 19) ; " * * LA VI 
LLE INFERNALE * * " : P 
RINT FNcu$<2,27) ; "copiright 1986 F 
ERNANDEZ miche l'¬ 
ISO PRINT:PRINT”** REGLES DU JEU ** C 
":PRINT:PRINT”Au volant de votre vo 
iture vous vous' dirigez vers Paris. 
”:PRINT”Vous abordez une ville inco 


2200 3 
125 3 
879 1 
2408 3 

2255 3 
972 3 
214-7 3 
1140 3 
1338 3 
2693 3 

2608 3 

2902 3 

4623 3 


8802 3 


16968 3 



rcciHTi ; ~ 

VOUS ms VICTIME D'UNI ACSESSION, 

HE ! OUI !! ENCORE !!! 

Vos voleurs ont coopris qu'il vous restait le l'arpent. 

ILS VOUS PRENNBil LE RESTE !!! 

VOUS POUVEZ REPARTIR. HAIS... TROUVEZ VITE UNE BANQUE. 

PRESSEZ <£SPACE> 


nnue, vous devez la traverser du SU 
D au NORD.":PRINT:PRINT"DANS CETTE 
VILLE DE 1600 CARREFOURS SONT REPAR 
TIS: " 

140 PRINT"80 banques; 80 postes de C 14318 3 
police, 90 garages, 90 postes d'ess 
ence.":PRINT:PRINT”POUR VOUS AIDEZ: 

PRINT"Boussole, Niveaux (essence 
et argent)":PRINT"Alarmes (essence, 
argent, consommation, roue de seco 
urs)." 

150 PRINT:PRINT"POUR VOUS GENER:":P [ 17050 3 


RINT"Panne de boussole, Panne mécan 
ique, Crevaisons, Agressions, Contr 
oies de police.":PRINT:PRINT"ARRETS 
POSSIBLES:":PRINT"Banque —> niveau 
argent remis au maximum.":PRIHT"Es 
sence -> plein du réservoir (à paye 
r! >" 

160 PRINT"Garage -> remise en état C 16568 3 

du véhicule (boussole, roue de seco 

urs, carburateur)PRINT"Poste de 

police -> arrêt obligataire si pann 

eau STOP (contrôle>.":PRINT:PRINT"A 

TTENTION La ville n'est pas sure: v 

ous pouvez vous faire dévaliser !" 

170 PRINT FNfeS(31,0,1,90);FNcu$(0, C 2997 3 
40);"PATIENTEZ"; 

180 OPEN "i",1,"vcode.txt" C 1540 3 

190 i=code:WHILE NOT (EOF(1)):INPUT t 4931 3 
#1,octet:POKE i,octet:i=i+l:VEND:C 
LOSE #1 

200 carad=i:carech=carad+9:POKE car [ 5923 3 

ech+1,INT(ad.jeu/256):POKE carech.a 
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La ville infernale 




d, Jeu-256*PEEK(carech+1 > 

210 OPEN "1",1,"vjeu.car" I 

220 i=-l: FOR t = l TO 128:INPUT #l,b$ t 
■ : FOR j=l TO 31 STEP 2: 1 = 1 + 1 :m$=MID$ 
(b$,j,2>: POKE ad.jeu+i,VAL("&h"+m$ 

): NEXT j,t:1 = 1 + 1 :POKE ad.jeu + 1,195 
: CLOSE #1 

230 PRINT cls$;FNcu. <0,36);CHRS (7) ; C 
"PRESSEZ UNE TOUCHE"; 

240 VHILE INKEYSVEND:WHILE INK C 
EY$="": VEND 

250 PRINT FNfeS(4,0,28,90);clsS; "** t 
FIN DU JEU **" :PRINT:PRINT"VOUS GA 
GNEZ SI vous ressortez de la ville_ 
coté NORD.":PRINT:PRINT"VOUS PERDEZ 
SI PRINT"Vous tombez en panne d' 
essence." 

260 PRINT"Vous n'avez pas assez d'a I 
rgent pour payer (essence,réparatlo 
ns,contraventions)." : PRINT"Vous ne 
vous arrêtez pas au contrôle de pol 
ice.PRINT"Vous succombez à la fat 
igue (plus de 200 km.) . " :PRINT"Vous 
ressortez coté SUD." 

270 PRINT:PRINT"En fin de partie vo C 
tre trajet vous est dévoilé avec po 
ssibilité de voir les emplacements 
des différents points d'arrêt.":PR 
INT:PRINT"LES COMMANDES:":PRINT"cur 
seur gauche = tourner à gauche c 
urseur droite = tourner à droite" 

280 PRINT"curseur haut = aller tout I 
droit curseur bas = arrêt (pour 
essence,banque,garage,police)":PRI 
NT:PRINT"QUELQUES CONSEILS:":PRINT" 
Passez souvent au garage (réparatlo 
ns garanties pour 10 km. >." 

290 PRINT"Survei1lez vos alarmes (s C 
1 alarme argent, pas assez pour rép 
arations) . " 

300 PRINT:PRINT"N’hésitez pas à uti C 
User papier et crayon (le nord est 
vite perdu).":PRINT"Gardez votre c 
aime (les bifurcations sont souvent 
défavorables).":PRINT:PRINT" B 
O .N N E ROUTE" 

310 PRINT FNfe$(31,0,1,90);FNcu$(0, I 
' 40);"PATIENTEZ" ; 

320 CALL échangé.jeu C 

330 CLOSE 1 C 

340 CLEAR,62981! : MEMORY 62981! :RUN" I 
vl 



10 1 La ville infernale C 
20 ’ I 
30 ' a sauver sous le nom VI.BAS I 
40 * C 
50 ' RSX basic étendu C 
60 ' I 
70 MEMORY &HF3FF C 


80 DATA C5,D5,23,7E,32,B0,F4,23,7E, I 
32, Bl, F4,3E, 80,32, B2, F4,3E, F4,'32, B3 
,F4, 11,B0,F4,0E,96,CD,05,00,11,60,F 
4,0E,13,CD,05,00,11,80,F4,0E,16,CD, 
05, 00, El, 5E, 23,56, El, 4E, 23,46, D5, C5 

90 DATA ED, 53,00, F4, ED, 43, 02, F4,0E, I 
IA, 11,00, F4,CD,05,00, 0E, 15, 11,80,F4 
,CD,05,00,El,29,24,44,DI,C5,D5,0E,1 
A, CD, 05, 00, 11-, 80, F4,0E, 15, CD, 05, 00, 


Dl,EB,11,80,00,19,EB,Cl,10,E7,11,80 
1437 I ,F4,0E, 10, CD,05,00,C9 
8826 3 100 DATA D5,23,7E,32,B0,F4,23,7E,32 

, Bl, F4,3E, 80,32, B2, F4,3E, F4,32, B3, F 
4, 11, B0, F4, 0E, 98, CD, 05, 00, 11,80, F4, 
0E, 0F, CD, 05,00, FE, 00, C0, 11,00, F4,0E 
,1A,CD,05,00,11,80,F4,0E,14,CD,05,0 
3491 3 0 

110 DATA El,5E,23,56,2A,02,F4,E5,29 
2937 3 , 44, D5,78, FE, 00,28, 18, C5, D5, 0E, IA, C 

D, 05,00, 11,80, F4,0E, 14, CD, 05,00, El, 
12106 3 11,80,00,19,EB,Cl,10,E8,D5,Cl,EB, Dl 

, AF,, ED, 52, EB, El, ED, 52, C5, E5, 11,00, F 
4 

120 DATA 0E,IA,CD,05,00,11,80,F4,0E 
, 14,CD,05,00,Cl,21,00, F4, Dl, ED, B0, 1 
1,80,F4,0E, 10,CD,05,00, C9 
15739 3 130 FOR i=l TO 119:READ n$:n=VAL("& 

h" +n$ ) : POKE &HF4J)F+i , n : NEXT 
140 FOR i = l TO 141 :READ n$:n=VAL("& 
h"+n$):POKE &HF556+1,n:NEXT 
150 RUN"v2 C 


16689 J 


13686 3 


5542 3 


12905 3 


2993 3 

1262 3 
637 3 
2219 3 


1445 3 
169 3 
2033 3 
171 3 
1328 3 
173 3 
1011 3 
9161 3 


10201 3 


10 ' La ville infernale C 
20 ' I 
30 ' a sauver sous le nom V2.BAS C 
40 ' C 
50 ' RSX graphique I 
60 ' [ 


70 blaad%=&HF557:adorig=&HF080:dep% C 
=HIMEM-65536! :dep%=dep%-654: MEMORY 
HIMEM-655 

80 nom.$="VGRAPH. BIN" : CALL bload%(no C 
m$,dep%) 

90 DATA F09AF09EF0A4F0A8F0AEF0CDF0E C 
6F0F5 

100 DATA F100F10BF112F119F128F12BF1 I 
7FF19A 

110 DATA F1A9F1CCF1F1F1F4F1F9F218F2 I 
1BF220 

120 DATA F22DF271F290 I 

130 DATA F080FOCDF090F095FOD8FODEFD E 

F5F100F128F10BF19AF112 

140 DATA F080F0D0F091F096F0D8F0DEF0 I 

F8F100F12BF10BF19DF112 

150 DIM table(51):m=0: FOR i = l TO 6: C 

READ a$:lena=LEN(a$)/4 

160,FOR j=l TO lena:b=VAL("&h"+MIDS l 
(a$,4*j-3,4))-adorig+dep% 

170 m=m+l: table(m)=b: NEXT j:NEXT i I 
180 FOR i=l TO 27:b=table(i) I 

190 df=PEEK(b+2)*256+PEEK(b+l)-ador C 
ig+dep%:df1=FIX(df/256) 

200 df2=df-256*df1:POKE b+l,df2:POK [ 
E b+2,df1 :NEXT i 

210 m=&HF5FF: FOR i=28 TO 39:b=table C 
(i):bl=FIX(b/256):b2=b-256*bl 


220 IF b2<0 THEN b2=b2+256 E 

230 IF bl<0 THEN bl = Bl+255 I 

240 POKE m-1, b2:POKE m,bl:m=m-2 : NEX C 
T i 

250 m=&HF500:FOR i=40 TO 51:b=table C 
(i):bl=FIX(b/256):b2=b-256*bl 
260 IF b2<0 THEN b2=b2+256 C 

270 IF bl<0 THEN bl=bl+255 C 

230 POKE m,&HC3:POKE rat1, b2 : POKE m+ I 
2,bl:m=m+3: NEXT i 

290 RUN"v3 [ 



C 9192 3 


I 9294 3 


4957 3 


3714 3 
3680 3 
597 3 


1445 3 
169 3 
2034 3 
171 3 
1167 3 
173 3 
4868 3 


2668 3 

2396 3 

2327 3 

2389 3 

1180 3 
3290 3 

3290 3 

3390 3 

3479 I 

2159 3 
1662 3 
3432 3 

3044 3 

3761 3 

1439 3 
1436 3 
2327 3 

3709 3 

1443 3 

1440 3 
3163 3 

603 3 
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1 ' a sauver sous le nom V3.BAS C 

2 * [ 

3 1 programme principal C 

4 1 1 C 

10 OPTION RUN C 

20 REM ******* VILLE INFERNALE **** I 
********** 

30 REM copyright FERNANDEZ michel C 


40 DEF INT a-d: DEFINT f-z:DIM vi$<7) t 
50 DEF FNwp<x) =UNT(PEEK<x)+256*PEEK f 
<x+l)) ’ 

60 gcls=FNwp<&HF5FE) : gorigin=FNwp<& C 
HF5FC):gmode=FNwp(&HF5FA) 

70 gvideo=FNwp<&HF5F8):gxpos=FNwp<& I 
HF5F6):gypos=FNwp<&HF5F4) 

80 gmove=FNwp(&HF5F2):gmover=FNwp<& [ 
HF5F0):gplot=FNwp<&HF5EE) 

90 gplotr=FNwp<&HF5EC>:gdraw=FNwp<& C 
HF5EA):gdrawr=FNwp<&HF5E8) 

100 x$=CHS$(27):curson$=x$+"e":curs C 
offS=x$+"f" 

110 cls$=xS+"E"+xS + "H":invS=x$+"p" : C 
norm$=xî+"q” . 

120 DEF FNcuS<11, co)=xS+"Y"+CHRS<32 C 
+ 1 i )+CHRS <32+ca > 

130 DEF FNfeS<li , co, ni,nc)=xS + "X"+C C 
HRS<32+1i)+CHRS<32+co)+CHRS<31+nl)+ 
CHRS <31+nc) 

140 zlS=CHR$ <170> +CHRS <165)+CHRS <16 I 
5)+CHRS<172 > : z2S=CHR$ <165)+CHRS <165 
)+CHRS<171)+CHR$ <172):z3S=CHR$ <173) 
+CHR$<165)+CHRS<171)+CHRS<165):z4S= 
CHRS <173)+CHRS<171)+CHRS <165)+CHRS< 
165) 

150 z5$=CHR$ <165)+CHRS <165)+CHRS <17 C 
0):z6$=CHRS <165)+CHRS<171)+CHRS <165 
):z7S=" "+CHRS <174)+" “ 

160 z8S=" "+CHRS <198)+CHRS <254)+" " C 
+CHRS <196)+CHRS <252)+" "+CHRS <196) + 
CHRS <197)+" "+CHRS<253)+CHRS<197)+" 

"+CHRS <255)+CHRS <199)+" " 

170 GOTO 1090 I 

180 PRINT FNfeS<22,0,11,90);clsS;FN C 
feS <0,0,32,90); STRINGS <12,7);FNcuS < 
9,9);" " : PRINT FNfeS<2,21, 13,50): RE 
TURN 

182 PRINT FNfeS<22,0,11,90);clsS;FN I 
fe$ <0, 0,32,90);CHRS <7>;FNcuS<9,9);" 

":PRINT FNfeS <2,21,13,50):RETURN 
185 PRINT FNfe$<22,0,11,90);clsS;FN C 
feS <0,0,32,90); STRINGS <12,7) ; FNcuS < 
9,9);" ":PRINT FNfeS<2,21,13,50); cl 
sS:RETURN 

190 PRINT STRINGS<12,161 >+.CHRS <184 ) C 
+STRINGS<2,185)+CHRS <187)+" 

"+CHRS <186)+STRINGS<2,185 
)+CHRS <183)+STRINGS <12, 160) 

200 PRINT STRINGS <11,161)+CHRS <184) C 
+STRINGS<2,185)+CHRS<187)+" 

"+CHRS<186)+STRINGS<2,1 
85)+CHRS <183)+STRINGS <11, 160) 

210 PRINT STRINGS <10, 16D+CHRS <184) C 
+STRINGS <2, 185) +CHRS <187) +-" 

"+CHRS<186)+STRINGS<2 
,185)+CHRS<1839 +STRINGS<10, 160) 

220 PRINT STRINGS.<9, 161 )+CHRS < 184) + C 
STRINGS <2,185)+CHRS <187)+" 

" +CHRS<186)+STRINGS< 

2,185)+CHRS <183)+STRINGS<9, 160) 

230 PRINT STRINGS <8, 16D+CHRS C184)+ C 
STRINGS<2,T85)+CHRS <187)+" 

" +CHRS < 186 ).+STR ING 


1985 3 
121 1 
1542 1 
123 3 
879 ] 
2408 3 

2255 3 
2160 3 
2503 I 

3919 I 

3942 I 

3934 3 

4018 ] 

2734 ] 

2649 3 

2904 I 

4625 3 


9706 3 


4930 ] 


6636 ] 


731 3 
6268 3 

5877 3 

6594 3 

7032 3 

7086 3 

7149 I 

7134 3 

7197 ] 


$ <2,185)+CHRS <lé3)+STRINGS <8, 160) 

240 RETURN 

250 PRINT STRINGS<12,161)+CHRS<189) 
+" "+CHRS<174)+CHRS <162)+STRINGS<3 

, 16D+CHRS <184)+STRINGS <2, 185)+CHRS 
<187 ) +" " +CHRS <186 ) -iSTRINGS <2 , 185) 

+CHRS <183)+STRINGS<3, 1601+CHRS <163) 
+CHRS <174)+" "+CHRS <188)+STRINGS <1 
2,160) 

260 PRINT STRINGS<12,161)+CHRS<189) 
+Z1S+STRINGS <2, 161)+CHRS <184)+STRIN 
GS <2,185)+CHRS <187)+" "+CHRS<186 

)+STRINGS<2,185)+CHRS <183)+STRINGS< 
2,160)+z3S+CHRS <188)+STRINGS <12,160 
) 

270 PRINT STRINGS <12,161)+CHRS <189) 
+Z2S+CHRS <161)+CHRS<184)+STRINGS<2, 

185) +CHRS <187)+" "+CHRS<186)+S 
TRINGS <2, 185)+CHRS<183)+CHRS<16 0)+z 
4S+CHRS <188)+STRINGS <12,160) 

280 PRINT STRINGS<12,161)+CHRS<189) 
+zlS+CHRS <184)+STRINGS<2,185)+CHRS < 
187)+" "+CHRS <186)+STRINGS <2 

,185)+CHRS <183)+Z3S+CHRS <188)+STRIN 
GS <12,160) 

290 PRINT STRINGS <12, 16D+CHRS <189) 

+STRINGS<6,185)+CHRS <187)+" 

"+CHRS<186)+STRINGS <6, 185)+CHRS<1 
88)+STRINGS <12, 160) 

300 PRINT STRINGS<12,161)+CHRS<189) f 
+" "+CHRS <18 

8)+STRINGS<12,160) 

310 PRINT STRINGS<12,161)+CHRS<189) C 
+" "+CHRS <18 

8)+STRINGS <12,160) 

320 PRINT STRINGS <12, 16D+CHRS <189) C 
+STRINGS<3, 185)+CHRS <187)+z8$+CHRS < 

186) +STRINGS<3,185)+CHRS <188)+STRIN 
GS <12,160) 

330 RETURN C 

340 PRINT STRINGS <20, 16D+CHRS <184) C 
+STRINGS <2, 185)+CHRS <187)+” ”+CHRS 

<186)+STRINGS <2,185)+CHRS<183)+STRI 
NGS <20,160) 

350 PRINT STRINGS<19,161)+CHRS<184) C 
+STRINGS <2, 185)+CHRS <187)+" "+CH 

RS <186)+STRINGS<2,185)+CHRS <183)+ST 
RINGS <19,160) 

360 PRINT STRINGS <18, 16D+CHRS <184) C 
+STRINGS<2,185)+CHRS<187)+" "+ 

CHRS <186)+STRINGS <2, 185)+CHRS <183) + 
STRINGS <18,160) 

370 PRINT STRlNGS<17,161)+CHRS<184) C 
+STRINGS <2, 185)+CHRS <187)+" 

"+CHRS <186)+STRINGS<2,185)+CHRS <183 
)+STRINGS <17,160) 

380 PRINT STRINGS<16,161)+CHRS<184) l 
+STRINGS <2, 185)+CHRS <187)+" 

" +CHRS < 186) +STRINGS <2, 185)+CHRS.<1 
83)+STRING$ <16,160) 

390 PRINT STRINGS <15, 16D+CHRS <184) C 
+STRINGS<2,185)+CHRS<187)+" 

"+CHRS <186)+STRINGS<2, 185)+CHRS 
<183)+STRINGS <15, 160) 

400 PRINT STRINGS <14, 16D+CHRS <184) I 
+STRINGS <2, 185)+CHRS<187)+" 

"+CHRS <186)+STRINGS <2,185)+CH 
RS <183)+STRINGS <14 , 160) 

410 PRINT STRINGS <13,161)+CHRS <184) C 
+STRINGS<2, 185)+CHRS <187)+z8S+CHR$< 
186)+STRINGS <2, 185)+CHRS <183)+STRIN 
GS <13,160) 


662 I 
11850 I 


9858 3 


9237 3 


8235 3 

6795 3 

4380 3 

4381 3 

6577 3 

662 3 
6515 3 

6596 3 


6659 3 


6722 3 


6785 3 


"6848 3 


6902 3 


6567 3 
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La VILLE INFERNALE 


420 RETURN I 662 3 

430 PRINT STRINGS<12,161)+CHRS<189) [ 9183 3 
+" "+CHRS <174)+CHRS <162)+STRINGS(3 

,161)+CHRS <184)+STRINGS<2,185)+CHRS 
<187)+" "+CHRS <186)+STRINGS <2, 185) 

+CHRS <183)+STRINGS <20,160) 

440 PRINT STRINGS <12,161)+CHRS <189) [ 8227 3 
+zlS+STRING$ <2,161)+CHRS <184)+STRIN 
GS <2,185)+CHRS <187)+" M +dHR$<186 

)+STRINGS<2, 185)+CHRS<183)+STRINGS < 

19.160) 

450 PRINT STRINGS <12, 16D+CHRS <189) [ 7948 3 
+z2S+CHRS <161)+CHRS<184)+STRINGS <2, 

185) +CHRS <187)+" "+CHRS <186)+S 
TRINGS <2, 185)+CHRS <183)+STRINGS <18, 

160) 

460 PRINT STRINGS <12,161)+CHRS <189) [ 7478 3 
+zl$+CHR$ <184)+STRINGS<2,185)+CHRS < 

187)+" "+CHRS <186)+STRINGS <2 

,185)+CHRS <183> +STRINGS<17,160) 

470 PRINT STRINGS <12,161)+GHRS <189) [ 6790 3 
+STRINGS <6, 185)+CHRS <187)+" 

"+CHRS <186)+STRINGS <2, 185)+CHRS <1 
83)+STRINGS<16, 160) 

480 PRINT STRINGS <12,161)+CHRS <189) [ 5618 3 
+" "+CHRS<186)+STR 

INGS<2, 185)+CHRS <183)+STRINGS <15, 16 
0) 

490 PRINT STRINGS<12,161)+CHRS<189) [ 5650 1 
+" "+CHRS <186)+ST 

RINGS<2,185)+CHRS <183)+STRINGS <14,1 
60) 

500 PRINT STRINGS <12, 16D+CHRS <189) C 6572 3 
+STRINGS <3, 185)+CHRS <187)+Z8S+CHRS< 

186) +STRINGS<2, 185)+CHRS <183)+STRIN 
GS <13, 160) 

510 RETURN C 662 3 

520 PRINT STRINGS <20, 16D+CHRS <184) C 9182 3 
+STRINGS <2,185)+CHRS<187)+" "+CHRS 

<186)+STRINGS<2,185)+CHRS <183)+STRI 
NGS <3,160)+CHRS<163)+CHRS<174)+" 

+CHRS <188)+STRINGS <12 , 160) 

530 PRINT STRINGS<19,161)+CHRS<184) [ 8228 3 
+STRINGS<2,185)+CHRS<187)+" "+CH 

RS <186)+STRINGS<2,185)+CHRS <183)+ST 
RINGS <2, 160)+z4S+CHRS<188)+STRINGS < 

12.160) 

540 PRINT STRINGS <18, 16D+CHRS <184) I 7947 3 
+STRINGS <2, 185)+CHRS <187)+" " + 

CHRS<186)+STRINGS <2, 185)+CHRS <183) + 

CHRS <160)+z3S+CHRS <188)+STRINGS<12, 

160) 

550 PRINT STRINGS <17, 16D+CHRS <184) [ 7480 1 

+STRINGS <2,185)+CHRS <187)+" 

"+CHRS <186)+STRINGS <2, 185)+CHRS<183 
)+z4S+CHRS <188)+STRINGS <12, 160) 

560 PRINT STRINGS<16,161)+CHRS<184) C 6790 3 
+STRINGS <2,185)+CHRS<187)+" 

"+CHRS <186)+STRINGS <6,185)+CHRS <1 
88)+STRINGS <12,160) 

570 PRINT STRINGS <15, 16D+CHRS <184) I 5619 3 
+STRINGS <2,185)+CHRS <187)+" 

"+CHRS <188)+STRINGS <12,16 

0) 

580 PRINT STRINGS <14, 16D+CHRS <184) C 5651 3 
+STRINGS <2,185)+CHRS <187)+" 

"+CHRS <188)+STRINGS <12,1 

60) 

590 PRINT STRINGS<13,161)+CHRS<184) C 6581 1 
+STRINGS<2,185)+CHRS<187)+Z8S + CHRS < 

186)+STRINGS<3, 185)+CHRS <188)+STRIN 
GS <12, 160) - 


600 RETURN C 

610 PRINT STRINGS <12,161)+CHRS <189) [ 
+z7$+z7$+z7S+z7$+z7S+z7S+z7S+z7S+CH 
RS <188)+STRINGS<12,160) 

620 PRINT STRINGS <12, 16D+CHRS <189) [ 
+z5S+z5S+z5S+z5S+z5$+z5$+z5$+STRING 
S<3,165)+CHRS <188)+STRINGS <12,160) 

630 PRINT STRINGS <12, 161)+CHRS <189) [ 
+z6$+z6S+z6S+z6S+z6$+z6S+z6S+z6S+CH 
RS <188)+STRINGS <12, 160) 

640 PRINT STRINGS <12, 16D+CHRS <189) [ 
+z5S+z5S+z5S+z5S+z5$+z5$+z5$+STRING 
$ <3,165)+CHRS <188)+STRINGS <12,160) 

650 PRINT STRINGS <12,161)+CHRS <189) C 
+STRINGS<24,185)+CHRS<188)+STRINGS< 
12,160) 

660 PRINT STRINGS<12,161)+CHRS<189) C 
+" "+CH-RS <18 

81+STRINGS<12,160) 

670 PRINT STRINGS<12,161)+CHRS<189) l 
+" "+CHRS<18 

8)+STRINGS <12, 160) 

680 PRINT STRINGS <12,161)+CHRS <189) C 
+STRINGS<3,185)+CHRS <187)+Z8S+CHRS< 
186)+STRINGS<3,185)+CHRS <188)+STRIN 
GS <12,160) 

690 RETURN C 

700 PRINT STRINGS<12,161)+CHRS<189) C 
+z7S+z7S+z7$+z7S+z7S+z7S+" "+CHRS<1 
74)+CHRS<188)+STRINGS <16,160) 

710 PRINT STRINGS <12, 16D+CHRS <189) [ 
+z5S+z5S+z5$+z5$+z5S+z5$+CHR$ <165) + 
CHRS <165)+CHRS <188)+STRINGS <16 , 160) 

720 PRINT STRING$<12,161)+CHRS<189) I 
+z6S+z6S+z6$+z6S+z6S+z6S+CHR$ <165) + 
CHRS <171)+CHRS <188)+STRINGS <16,160) 

730 PRINT STRINGS<12,161)+CHRS<189) I 
-+z5$+z5S+z5s+z5$+z5$+z5$+CHRS <165) + 
CHRS <165)+CHRS <188)+STRINGS <16,160) 

740 PRINT STRINGS <12, 16D+CHRS <189) [ 
+STRINGS <20,185)+CHRS<183)+STRrNGS< 
16,160) 

750 PRINT STRINGS <12,161)+CHRS <189) t 
+" "+CHRS <186)+STR 

INGS <2, 185)+CHRS <183)+STRINGS<15, 16 
0), 

760 PRINT STRINGS<12,161)+CHRS<189) C 
+" "+CHRS <186)+ST 

RINGS <2, 185)+CHRS <183)+STRINGS <14,1 
60) ' 

770 PRINT STRINGS <12, 16D+CHRS <189) I 
+STRINGS <3, 185)+CHRS <187)+Z8S+CHRS< 
186)+STRINGS<2,185)+CHR$<183)+STRIN 
GS <13,160) 

780 RETURN C 

790 PRINT STRINGS<16, 161)+CHRS<189) [ 
+CHRS <174)+" "+z7S+z7S+z7S+z7S + z7S+ . 
Z7S+CHRS <188)+STRINGS <12,160) 

800 PRINT STRINGS <16, 16D+CHRS <189) C 
+CHRS<165)+CHRS<172)+z5S+z5S+z5S+z5 
S+zSS+STRINGS <3; 165)+CHRS <188)+STRI 
NGS <12, 160) 

810 PRINT STRINGS <16, 16D+CHRS <189) [ 
+CHRS<171)+CHRS<165)+z6S+z6$+z6S+z6 
S+z6S+z6S+CHRS <188)+STRINGS <12, 160) 

820 PRINT STRINGS<16,161)+CHRS<189) C 
+CHRS<165)+CHRS<172)+z5S+z5S+z5$+z5 
$+z5S+STRING$<3,165)+CHRS <188)+STRI 


662 3 
5297 3 

5942 3 

5291 3 

5944 3 

4444 3 

4389 3 

4390 3 

6586 3 

671 3 
5533 3 

5916 3 

5920 3 

5918 I 

4439 3 

5618 3 

5650 3 

6581 I 

671 3 
5542 3 

6574 3 

5920 3 

6576 3 
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NGS <12, 160) 



1160 

IF y<37 THEN yl=y-3L: GOTO 1180 

I 

2067 

3 

830 PRINT STRINGS<16, 161)+CHRS<184) 

[ 

4439 3 

1170 

IF y<43 THEN yl=y-37 

t 

1466 

3 

+STRINGS <20,185)+CHRS<188)+STRINGS < 



1180 

LI = INT <y/6. 1)+1:lo=x+<40*yl) 

[ 

1903 

3 

12,160) 



1190 

z=VAL<MIDS<viS<11) , lo, 1)) 

C 

1746 

3 

840 PRINT STRINGS <15,161)+CHRS <184) 

[ 

5619 3 

1200 

GOSUB 

2200:GOSUB 2140 

[ 

1512 

3 

+STRINGS <2, 185)+CHRS <187)+" 



1210 

IF ar 

= 1 THEN ar=0: GOTO 1225 

[ 

1888 

3 

"+CHRS(188)+STRINGS <12, 16 



1220 

PRINT 

FNfeS <2,21,13,50); clsS 

[ 

1865 

3 

0) 



1225 

PRINT 

FNfeS <1,21,15,51) : ON k -G 

I 

4279 

3 

850 PRINT STRING$<14,161)+CHRS<184) 

[ 

5651 3 

OSUB 

250,340,430,520,700,610,790: GO 




+STRINGS <2, 185)+CHRS <187)+" 



SUB 

190 





• "+CHRS <188)+STRINGS <12,1 



1230 

IF z— 

0 THEN 1310 

[ 

1168 

3 

60) 



1240 

ON z GOTO 1250,1260,1270,1280 

I 

1825 

3 

860 PRINT STRINGS<13,161)+CHRS<184) 

C 

6581 3 

1250 

nraS=" 

GARAGE ": GOTO 1300 

[ 

1638 

3 

+STRINGS<2, 185)+GHRS <187)+z8$+CHKS< 



1260 

nmS=" 

ESSENCE": GOTO 1300 

C 

1702 

3 

186)+STRINGS<3, 185)+CHRS <188)+STRIN 



1270 

nm$ = " 

BANQUE ": GOTO 1300 

[ 

1661 

3 

GS <12, 160) 



1280 

nraS=" 

POLICE ": GOTO 1290 

[ 

1670 

3 

870 RETURN 

[ 

671 3 

1290 

GOSUB 

880:GOSUB 980:GOTO 1310 

[ 

2047 

3 

880 PRINT FNcuS<0, 0) ; CHRS<7):PRINT 

C 

5400 3 

1300 

GOSUB 

880 

I 

804 3 


FNcuS <0, 0):PRINT CHRS <161)+CHRS <189 



1310 

PRINT 

FNfeS <22,0, 11,90);clsS; F 

[ 

14621 

3 


)+z7S+z7S+z7S+CHRS <162) 

890 PR INT CHR$(161)+CHRS <189)+z5S+z 
5$+z5$+CHR$ <172):PRINT CHRS <161)+CH 
RS <189>+z6S+z6$+z6$+CHR$<172):PRINT 
CHRS <161)+CHRS <189)+z5$+z5$+z5$+CH 
RS <172) 

900 PRINT CHRS <161)+CHRS <189)+STRIN 
GS <8, 165)+STRINGS<2, 172) 

910 PRINT CHRS <161)+CHRS <189)+nm$+C 
HRS<162)+CHRS <162) 

920 PRINT CHRS<161)+CHRS<189)+" "+C 
HRS <194)+STRINGS<2, 190)+CHRS <251)+S 
TRINGS <2, 190)+CHRS <193)+STRINGS <2, 1 
62) 

930 PRINT CHRS <161)+CHRS <189)+" "+C 
HRS<163)+" "+CHRS <174)+" "+STRING 

S <3,162) 

940 PRINT CHRS<161)+CHRS<189)+CHRS< 
164)+CHRS<177)+STRINGS<2, 164)+CHRS < 
195)+STRINGS<2, 164)+STRINGS <3, 178) 
950 PRINT CHRS <161)+CHRS <184)+STRIN 
GS <10, 185) 

960 PRINT CHRS<184)+STRINGS<10,185) 

:PRINT STRINGS<10,185):PRINT STRING 
$ <9,185) 

970 RETURN 

980 IF cl=l THEN RETURN 

990 PRINT FNcuS<10,22);CHRS<184)+ST 

RINGS<4, 185)+CHRS <183) 

1000 PRINT FNcuS<11,22);CHRS<185)+" 
STOP"+CHRS <185) 

1010 PRINT FNcuS<12,22);CHRS<186)+S 
TRINGS<4,185)+CHRS<187) 

1020 PRINT FNcuS<13,23);CHRS<176)+" 
"+CHRS <175) 

1030 RETURN 

1040 PRINT CHRS <7); 

1050 VH ILE INKEYSO"" : VEND: qS="" 

1060 qS=INKEYS:rzz=RND:IF qS=CHR$<l 
3)THEN RETURN 
1070 IF qS="" THEN 1060 
1080 qS=UPPER$<qS):RETURN 
1090 PRINT FNfeS<31,0, 1,90) ; cls$; : P 
RINT FNfeS <0,0,32,90);FNcuS <31,15); 
cursoffS;"DEBUT DU VOYAGE"GOSUB 3 
160 ;GOSUB 1650:GOSUB 2250:GOSUB 226 
0 

1100 GOSUB 1800 

1110 IF y<7 THEN yl=y-l:GOTO 1180 
1120 IF y<13 THEN yl=y-7:G0T0 1180 
1130 IF y<19 THEN yl=y-13:GOTO 1180 
1140 IF y<25 THEN' yl=y-19:G0T0 1180 
1150 IF y<31 THEN yl=y-25:GOTO 1180 


C e301 ] 

C 3413 ] 
[ 2950 3 

C 6038 3 

[ 4094 ] 

C 5913 I 

I 2577 ] 
C 4753 3 

[ 672 3 
C 1468 ] 
C 3257 ] 

[ 2844 I 

C 3297 ] 

C 2586 3 

[ 708 ] 

[ 1110 I 

C 1913 I 
C 3102 I 


NcuS<2,36);"QUE FAITES-VOUS ?" ;FNcu 
$<4,36);"tout droit < ";CHRS<131);" 

)":PRINT FNcuS<5;36);"tourne à dro 
ite < ";CHRS<132);" )";FNcuS<6,36); 

"tourne à gauche < CHRS<134);" )" 

:PRINT FNcuS<7,36);"arrêt < ";CHRS< 
133);" )"; 



1520 

1219 3 

1530 

1579 3 

1540 

8498 3 

1550 


1560 


1570 


1580 


1590 

843 3 

1600 

1960 3 

1610 

2012 3 

1620 

2064 3 

1630 

2068 3 

1640 

2063 3 

1650 


1320 VHILE INKEYSO"" : VEND I 

1330 FF=RND:qS=INKEY$: IF Q$ = ""THEN C 
1330 

1340 IF ASC <qS) = 1 THEN q=l:GOTO 139 I 


1350 IF ASC <qS > =6 THEN q=2:GOTO 139 t 
0 

1360 IF ASC <qS)=30 THEN q=3:GOTO 13 I 
90 

1370 IF ASC <qS)=31 THEN q=4:GOTO 13 I 
90 

1380 PRINT CHRS<7);:GOTO 1330 C 

1390 PRINT clsS: IF z=4 AND cl = 0 AND [ 
q<>3 THEN 2550 

1400 IF <q=1 AND c2=2)0R<q=2 AND c3 I 
=2)OR <q=4 AND cl=2)THEN 2570 
1410 IF q=3 THEN 2620 C 

1420 dl=q:cl = 0:e=e-cs: km=k:m+l C 

1430 IF e<0 THEN 2990 I 

1440 PRINT FNfeS<0,0,32,90):GOSUB- 2 I 
260 

1450 IF km=200 THEN 3060 I 

1460 IF EN>0 OR km<4 THEN 1520 C 

1470 J = INT <RND*30)+1 C 

1480 IF J=23 AND P<5 THEN 2270 C 

1490 IF J=ll AND P<10 AND AG<2 AND C 

a> 0 THEN 2390 

1500 IF <J=5 OR J = 16) AND CS=1 
P<10 THEN 2460 

1510 IF <J=8 OR J=27 OR J=2) AND BL C 
=1 AND P<10 THEN 2510 

=en-l I 


D=D+1: IF D=5 THEN D=1 
IF D=1 THEN Y=Y-1:FS=f$+"1" 
IF D=2 THEN X=X+1:FS=f$+"2" 
IF D=3 THEN Y=Y+1:FS=fS+"3" 
IF D=4 THEN X=X-1:FS=fS+"4” 
P=P-1: IF P<0 THEN P=0 
IF Y=0 THEN 3020 
IF Y=41 THEN 3100 


1609 ] 
2329 I 

2096 ] 

2103 I 

2150 ] 
2153 3 

1719 ] 
2991 ] 

3596 ] 

1167 3 
1767 3 
1163 I 
2176 ] 

1336 3 
1755 3 
1148 3 
1686 3 
2734 3 

AND I 2755 I 


3159 ] 

681 ] 
1861 ] 
1483 3 
785 3 
1485 3 
1813 3 
1812 3 
1817 3 
1843 3 
1524 3 
1170 3 
1223 3 
774 3 
5270 3 


59 












La ville infernale 


);clsS;STRINGS(29,32);"L A VIL 
LE INFERN-ALE" 

1660 PRINT FNfeS<1,20,16,53);clsS;C [ 

HRS <166 > +STRINGS(50,164)+CHRS<167): 

FOR 1=0 TO 12 :PRINT CHRS<162)+STRIN 
GS <50,32)+CHR$ <163):NEXT: PRINT CHRS 
<169)+STRINGS(50,165)+CHRS(168); 

1670 PRINT FNfeS<0,0,32,90);FNcuS<1 [ 

6,0); STRINGS(18, 164)+CHRS(129)+STRI 
NGS <9, 164)+CHRS <129)+STRINGS <9,164) 

+CHRS <129)+STRINGS(9,164)+CHRS <129) 

+STRINGS <9, 164)+CHRS(129)+STRINGS <9 
,164)+CHRS <129)+STRINGS(9,164)+CHRS 
<129)+STRINGS <10,164);CHRS(167); 

1680 PRINT CHRS(163)+" ARGENT"+CHRS [ 

(162)+STRINGS(80,32)+CHRS(163); 

1690 PRINT CHRS(163)+" "+STR [ 

INGS(9, 130 > +CHRS <127)+STRINGS <9, 130 
)+CHRS(127)+STRINGS(9,130)+CHRS(127 
)+STRINGS(9,130)+CHRS<127)+STRINGS( 

9, 130)+CHRS <127)+STRINGS(9,130)+CHR 
S <127)+STRINGS<9, 130)+CHRS<127)+STR 
INGS <10,130)+CHRS <163); 

1700 PRINT CHRS(163)+"ESSENCE"+CHRS [ 

<162)+STRINGS(80,32)+CHRS(163); 

1710 PRINT STRINGS(18,165)+CHRS(128 [ 

)+STRINGS(9,165)+CHRS(128)+STRINGS( 

9,165)+CHRS(128)+STRINGS<9,165)+CHR 
S(128)+STRINGS <9,165)+CHRS <128)+STR 
INGS <9, 165)+CHRS(128)+STRINGS(9,165 
)+CHRS(128)+STRINGS(10,165)+CHRS(16 
8 ) ; 

1720 PRINT FNcuS (.4,4);“* BOUSSOLE * I 
" ; FNcuS(6,6); CHRS(191)+STRINGS(5,16 
5)+CHR$(192);FNcuS <7,5);CHRS(191)+" 

N "+CHRS(192) ; FNcuS(8,4);CHRS( 

191) +" "+CHRS(194)+CHR$(190)+CHRS 

(193)+" "+CHRS(192); 

1730 PRINT FNcuS<9,3);CHRS(162)+" t 
O "+CHRS(163)+" "+CHRS (162)+" E " + 

CHRS(163);FNcuS <10,4);CHRS(192)+" 

"+CHRS<175)+CHRS(190)+CHRS(176)+" 

“+CHRS <191) 

1740 PRINT FNcuS(11,5);CHRS(192)+" C 
S "+CHRS(191);FNcuS(12,6);CHRS( 

192) +STRINGS(5,164)+CHRS(191) 

1750 PRINT FNcuS(1,77)* ALARMES * I 
";FNcuS <2,75);CHRS(194)+STRINGS<13, 

190)+CHRS <193) ; FNcuS(3,75);CHRS(163 
)+STRINGS(13,32)+CHRS(162);FNcuS(4, 

75) ;CHRS(163)+STRINGS(13, 190)+CHRS < 

162) 

1760 PRINT FNcuS(5,75);CHRS<163)+ST C 8590 3 
RINGS <13*, 32) +CHRS ( 162) ; FNcuS (6,75); 

CHRS(163)+STRINGS(13, 190)+CHRS <162) 

; FNCUS (7, 75) ; CHRS (163) +STRINGS (13, 3 
2)+CHRS(162) 

1770 PRINT FNcuS(8,75);CHRS(163)+3T C 8700 3 
RINGS(13,190)+CHRS(162);FNcuS(9,75) 

;CHRS(163)+STRINGS(13,32)+CHRS(162) 

;FNcuS(10,75) ; CHRS(175)+STRINGS(13, 

190)+CHRS <176) 

1780 PRINT FNCUS(12,75);"* KILDMETR [ 9953 3 

AGE *";FNCUS(13,79);CHRS(194)+STRIN 
G$(5,190)+CHRS(193) ; FNCUS(14,79); CH 
RS(163)+" 0 "+CHRS(162);FNCUS(15, 

79);CHRS(175)+STRINGS(5,190)+CHRS(1 

76) 

1790 RETURN I 721 3 

1800 IF BL=0 THEN 1820 [ 1329 3 

1810 IF KM=0 THEN K=l:RETURN C 1760 3 

1820 FF=INT(RND*20)+1 [ 1212 3 


1830 

IF FF=4 OR FF=8 OR FF=20 THEN 

C 

2827 

3 

K= 1 : 

GOTO 1900 




1840 

IF FF=7 OR FF=16 THEN K=2; GOTO 

[ 

2355 

3 

1900 




1850 

IF FF=1 OR FF=9 THEN K=3:G0T0 

C 

2305 

3 

1900 





1860 

IF FF=3 OR FF=14 THEN K=4: GOTO 

C 

2353 

3 

1900 




1870 

IF FF=5 OR FF=10 OR FF=13 THEN 

C 

2879 

3 

K=5 

: GOTO 1900 




1880 

IF FF=Ô OR. FF=12 OR FF=18 THEN 

[ 

2890 

3 

K=7 

: GOTO 1900 




1890 

K=6 

[ 

432 I 


1900 

IF K=1 THEN cl=3:c2=3;c3=3 

[ 

1764 

3 

1910 

IF K=2 THEN cl=3;c2=2:c3=2 

f 

1764 

3 

1920 

IF K=3 THEN cl=3;c2=3:c3=2 

[ 

1767 

3 

1930 

IF K=4 THEN cl=3:c2=2:c3=3 

l 

1769 

3 

1940 

IF K=5 THEN cl=2:c2=3:c3=2 

C 

1770 

3 

1950 

IF K=6 THEN cl=2:c2=3;c3=3 

C 

1773 

3 

1960 

IF K=7 THEN cl=2:c2=2:c3=3 

l 

1774 

3 

1970 

ON D GOTO 1980,2020,2060,2100 

[ 

1808 

3 

1980 

IF X=1 AND C2=3 THEN 1820 

I 

1689 

3 

1990 

IF X=40 AND C3=3 THEN 1820 

l 

1742 

3 

2000 

IF Y=1 AND<X<19 OR X>21) AND C 

[ 

2725 

3 

1=3 THEN 1820 




2010 

RETURN 

t 

707 ) 


2020 

IF X=40 AND Cl=3 THEN 1820 

c 

1725 

3 

2030 

IF Y=1 AND(X<19 OR X>21) AND C 

[ 

2729 

3 

2=3 THEN 1820 




2040 

IF Y=40 AND(X<19 OR X>21) AND 

c 

2782 

3 

C3=3 

THEN 1820 




2050 

RETURN 

c 

775 I 


2060 

IF X=1 AND C3=3 THEN 1820 

I 

1680 

3 

2070 

IF X=40 AND C2=3 THEN 1820 

I 

1731 

3 

2080 

IF Y=40 AND(X<19 OR X>21) AND 

[ 

2784 

3 

Cl=3 

THEN 1820 




2090 

RETURN 

c 

715 J 


2100 

IF X=1 AND Cl=3 THEN 1820 

I 

1673 

3 

2110 

IF Y=1 AND(X<19 OR X>21) AND C 

c 

2761 

3 

3=3 THEN 1820 




2120 

IF Y=40 AND(X<19 OR X>21) AND 

c 

2812 

3 

C2=3 

THEN 1820 




2130 

RETURN 

[ 

710 3 


2140 

IF bl = 0 THEN bS="?" : GOTO 2200 

I 

1917 

3 

2150 

IF d=l THEN bS=CHRS(131); GOTO 

[ 

2209 

3 

2190 





2160 

IF d=2 THEN bS=CHR$(132); GOTO 

[ 

2212 

3 

2190 





2170 

IF d=3 THEN b$=CHR$(133):GOTO 

I 

2215 

3 

2190 





2180 

IF d=4 THEN b$=CHRS(134) 

[ 

1611 

3 

2190 

PRINT FNfeS(0,0,32,90);FNcuS(9 

I 

2836 

3 

,9);bS:RETURN 




2200 

IF E<10 THEN AL1S=" ESSENCE 

[ 

3257 

3 

" ELSE AL1S=" 




2210 

IF A<20 THEN AL2S=" ARGENT 

c 

3156 

3 

" ELSE AL2S=" 




2220 

IF CS=2 THEN AL3$="CONSOMMAT10 

[ 

3475 

3 

N " ELSE AL3$=" 

• 



2230 

IF RS=0 THEN AL4S="R0UE SECOUR 

[ 

3499 

3 

S " ELSE AL4S=" 




2240 

PRINT FNfeS(0,0,32,90):PRINT F 

c ■ 

■ 6343 

3 


NcuS(3,76);allS;FNcuS(5,76);al2S; FN 
cuS(7,76);al3S;FNcuS(9,76);al4S:RET 
URN 

2250 PRINT FNfeS(0,0,32,90);PRINT F f 4800 3 
NcuS(18,9); STRINGS(a, 1853+SPACES(80 
-a):RETURN 

2260 PRINT FNfeS(0,0,32,90):PRINT F I 8012 3 
NcuS(20,9); STRINGS <e,185)+SPACES(80 
-e);PRINT FNcuS(9,9);bS:PRINT FNcuS 


10013 3 

13749 3 


3760 3 
12947 3 


3790 3 
12162 3 


10624 3 

7876 3 

5397 3 

10112 3 


60 






<14,81);USING"###"; km:RETURN 
2270 GOSUB 180:PRINT FNcuS<7,15);" I 
CREVAISON ";FNfeS<22,0,11,9 
0) ; 

2280 FRINT" VOUS VENEZ DE I 

CREVER ! ! !" 

2290 IF RS<1 THEN 2350 I 

2300 PRINT: PRINT"Heureusement pour I 
vous votre roue de secours est en b 
on état,":PRINT:PRINT"VOUS VOUS DEP 
ANNEZ.":rs=0 

2310 PRINT:PRINT"Vous pouvez repart I 
ir mais. . . vous n'avez plus de roue 
de secours.":PRINT:PRINT"FAITES RE 
PARER AU PROCHAIN GARAGE.":GOSUB 22 
00 

2320 PRINT FNfeS<22,0,11,90);FNcuS< I 
10,40);"PRESSEZ <ESPACE>";:GOSUB 10 
50:PRINT clsS 

2330 EN=1: GOTO 1530 C 

2340 PRINT FNfeS <22,0,11,90);FNcuS < C 
10,40);"PRESSEZ <ESPACE>";:GOSUB 10 
50:PRINT clsS:GOTO 1200 
2350 PRINT:PRINT"HE! OUI!! VOUS AVE I 
Z QUATRE ROUES.... ET VOTRE ROUE DE 
SECOURS.EST CREVEE." 

2360 PRINT:PRINT"Vous devez faire v I 
enir un dépanneur... et cela n'est 
pas gratuit.":a=a—20:IF a>0 THEN PR 
INT:PRINT"VOUS POUVEZ REPARTIR MAIS 
...surveillez votre argentGOSUB 
2250:GOTO 2320 

2370 GOTO 2720 I 

2390 GOSUB 180:PRINT FNcuS<7, 15) ; " I 
AGRESSI ON";FNfeS <22,0,11,9 
0) ; 

2400 PRINT" VOUS ETES VICT I 

IME D'UNE AGRESSION.IF AG=1 THEN 
2430 

2410 PRINT:PRINT"Sous la menace vau I 
s donnez la moitié de votre argent. 

'• : A=INT <A/2) : AG=1 

2420 PRINT:PRINT"VOUS POUVEZ REPART I 
IR. MAIS... TROUVEZ VITE UNE BANQUE 
.":GOSUB 2250:GOTO 2320 
2430 PRINT:PRINT"HE ! OUI !! ENCORE I 
! ! ! " 

2440 PRINT:PRINT"Vos voleurs ont co I 
mpris qu'il vous restait de l'argen 
t. " 

2450 PRINT:PRINT"ILS VOUS PRENNENT I 
LE RESTE ! ! ! ":A=0:AG=2: GOTO 2420 
2460 GOSUB 180:PRINT FNcuS<7,9);" P I 
ANNE MECANIQUE";FNfe 

$ <22,0,11,90); 

2470 PRINT" VOUS AVEZ DES I 

ENNUIS MECANIQUES ! ! " 

2480 PRINT:PRINT"VOTRE CARBURATEUR C 
EST DEREGLE. Votre consommation d'e 
ssence double.":CS=2 

2490 PRINT:PRINT"VOUS POUVEZ REPART I 
IR. MAIS... Pensez a faire régler v 
otre voiture." 

2500 GOTO 2320 I 

2510 -GOSUB 180 :PRINT FNcuS<7, 16);" C 
BOUSSOLE ";FNfeS<22,0,11,90) 

2520 PRINT" VOTRE BOUSSOLE I 

SE BLOQUE." 

2530 PRINT:PRINT"RIEN NE VOUS INDIQ C 
UE MAINTENANT VOTRE'DIRECTION !!!" 
2540 PRINT:PRINT"A vous de ne pas p t 


4043 I 


2565 3 

1255 I 
8141 ] 


9576 I 


5014 I 

1093 I 
5614 I 

5983 I 

12682 I 


784 I 
4047 ] 

4425 I 

5724 I 

6183 I 

2333 I 
4974 I 

4269 3 
4575 I 

3324 I 
6152 I 

5768 3 

807 3 
3947 3 

2788 3 
4610 3 
4272 3 


erdre le nord ! !":BL = 0: GOTO 2490 
2550 GOSUB 180:PRINT FNcuS<7,10);" [ 

DELIT DE FUITE";FNfeS 
<22, 0, 11,90); 

2560 PRINT"VOUS VENEZ DE FORCER UN [ 
BARRAGE DE POLICE. PRINT : PRINT" C 
ETTE ACTION VOUS OBLIGE A TERMINER 
VOTRE VOYAGE...":PRINT:PRINT" 

EN P R I S O N":GOTO 3130 
2570 GOSUB 180:PRINT FNcuS<7,10);" I 
PERCUSSION MUR";FNfeS 
<22,0,11,90); 

2580 PRINT" VOUS VENEZ DE [ 

PERCUTER UN MUR ! !":ar=l 
2590 PRINT:PRINT"La réparation est C 
très onéreuse. Faites attention que 
diable ! !" 

2600 PRINT:FRINT"Il faut payer le c I 
arrossier":a=a—30:IF a>0 THEN PRINT 
TPRINT"VOUS POUVEZ REPARTIR... mais 
surveillez votre argent":GOSUB 225 
0 : GOTO 234 0 

2610 GOTO 2720 C 

2620 GOSUB 182 :ar=l:PRINT FNcuS<7,l I 
8);" ARRET ";FNfeS<22,0,11,9 
0) ; 

2630 IF Z>0 THEN 2660 I 

2640 PRINT" LA RUE EST PAR C 

FAITEMENT DESERTEPRINT:PRINT"A p 
art vous reposer, rien n'explique c 
ette manoeuvre." 

2650 PRINT:PRINT"VOUS FERIEZ MIEUX [ 
DE REPARTIR... Vous encombrez la ch 
aussée.": GOTO 2340 

2660 IF Z>1 THEN 2730 C 

2670 PRINT"VOUS ETES AU GARAGE ... C 
Votre voiture passe en révision." 

2680 PRINT:PRINT"REPARATIONS EFFECT I 
UEES... IL NE VOUS RESTE PLUS QU'A 
PAYER.":A=A-20 . 

2690 IF A<0 THEN 2720 I 

2700 PRINT:PRINT"VOUS POUVEZ REPART i 
IR. MAIS... Surveillez votre argent 

I I « 

2710 RS=1:P=20:CS=1:BL=1:GOSUB 2250 C 
:GOSUB 2200;GOTO 2340 

2720 PRINT:PRINT CHRS<7);"VOUS N'AV C 
EZ PAS ASSEZ D'ARGENT... Vous finis 
sez donc votre voyage...":PRINT:PRI 
NT" EN PRIS 

O N" : GOTO 3130 

2730 IF Z>2 THEN 2810 C 

2740 PRINT"VOUS ETES A LA POMPE A E I 
SSENCE." 

2750 IF E=80 THEN 2790 I 

2760 PRINT:PRINT"LE POMPISTE FAIT L I 
E PLEIN... Il ne vous reste plus qu 
'a payer." 

2770 E=8Û-E:E=E/2: A-1NT(A-E):E=80: I I 
F A<0 THEN 2720 

2780 PRINT:PRINT"VOUS POUVEZ REPART I 
IR. MAIS... Surveillez votre argent 
! ! « :GOSUB 2260:GOSUB 2250:GOTO 234 

0 

2790 PRINT:PRINT"ARRET INUTILE, RES C 
ERVOIR PLEIN.":PRINT:PRINT"Pour ne 
pas avoir l'air ridicule, vous fait 
es vérifier vos pneux.":PRINT : PRI NT 
"Cela vous coûte cinq francs." 

2800 A=A-5: IF A<0 THEN 2720 ELSE 27 I 
80 


4469 3' 


10893 3 


4574 3 


3484 3 
5578 3 


10100 3 


781 3 
4030 3 


1183 3 
7876 3 


5931 3 


1185 3 
4549 3 

5562 3 


1159 3 
5002 3 


3383 3 
9306 3 


1183 3 
2752 3 

1224 3 
5273 3 


2889 3 
7029 3 


11724 3 


2069 3 


61 










La ville infernale 


2810 IF Z>3 THEN 2860 C 1188 ] 

2820 PRINT"VOUS ETES DANS LA BARQUE C 342? 3 
.": IF A<80 THER 2840 

2830 PRIRT:PRIRT"VOUS ETES TETE ER I 10752 
L'AIR. . . Votre avoir est déjà au ma 
ximura.PRIRT: PRIRT"VOUS AVEZ L'AIR 
RIDICULE...Vous n'avez plus qu'à r 
epartir. . .": GOTO 2340 

2840 PRIRT:PRIRT"VOUS COMPLETEZ VOT C 3865 3 
RE AVOIR AU MAXIMUM." 

2850 AG=0:A=80:PRIRT:PRIRT"VOUS POU t 6732 ] 
VEZ REPARTIR. MAIS... Attention aux 
voleurs ! !":GOSUB 2250:GOTO 2340 
2850 IF cl=l THER 2640 [ 1239 I 

2870 PRIHT"CORTROLE DE POLICE... UN C 5267 ] 

POLICIER EXAMINE VOTRE VOITURE..." 

:CL=1:EN=2 

2880 IF P<5 THEN 2900 [ 1180 I 

2890 PRINT:PRINT"VOTRE VOITURE EST [ 7291 I 

EN BON ETAT.":PRINT:PRINT"Vous pouv 
ez reprendre votre route.":GOTO 234 
0 

2900 FF=INT(RND*11)+1 C 1212 I 

2910 IF FF=5 OR FF=11 THEN 2890 [ 1767 I 

2920 IF FF=2 OR FF=6 OR FF=9 THEN 2 C 2203 I 

970 

2930 IF FF=1 OR FF=7 OR FF=10 THEN t 2245 ] 
2980 

2940 PRINT:PRINT"VOS PNEUX SONT ER [ 3509 I 
MAUVAIS ETAT ! ! . " ; 

2950 PRINT"Vous devez payer une con C 4057 3 
travention.";CHR$ (7) : A=A-20 

2960 IF A<0 THEN 2720 ELSE 2780 l 1729 ] 

2970 PRINT:PRINT"VOTRE ECLAIRAGE ES C 4201 I 
T DEFFECTUEUX ! ! . "; : GOTO 2950 

2980 PRINT:PRINT"VOTRE VOITURE EST [ 4242 I 

TROP BRUYANTE GOTO 2950 

2990 GOSUB 185:PRINT FNcu$(7,9);" P [ 4549 ] 

ANNE D' ESSENCE";FNfe 
S (22,0, 11,90); 

3000 PRINT"VOUS ETES EN PANNE D'ESS I 7335 I 
ENCE !!": PRINT:PRINT"DOMMAGE POUR V 
OUS MAIS... Votre voyage se termine 
ici . " 

3010 PRINT:PRINT"La prochaine fois I 5592 I 
soyez prévoyant ... PRENEZ LE TRAIN 
!!!!":GOTO 3150 

3020 GOSUB 185:GOSUB 185:PRINT FNcu C 4222 I 

$<7,19);" GAGNE ";FNfe$<22,0,11 

,90); 

3030 PRINT"B R A V O ! ! ! VOUS ETES C 5280 I 
ENFIN PARVENU A TRAVERSER CETTE DRO 
LE DE VILLE." 

3040 PRINT:PRINT"Vous y avez mis le [ 5624 3 

temps ! ! ! VOUS AVEZ PARCOURU : "; K 

M; " kilomètres" 

3050 .PRINT:PRINT"VOUS POUVEZ FAIRE I 5861 I 
MIEUX... La prochaine fois prenez u 
n plan !"; GOTO 3150 

3060 GOSUB 185:PRINT FNcuS(7,16);" I 3904 1 
ACCIDENT ";FNfe$(22,0,11,90) 

> 

3070 PRINT"VOUS ETES VICTIME D'UN A 
CCIDENT. PRINT: PRINT" APRES 200 K 
m PARCOURUS DANS CETTE VILLE.. 

3080 PRINT:PRINT"LA FATIGUE VOUS A 
SURPRIS.... VOUS FINISSEZ VOTRE VOY 
AGE..." 

• 3090 PRINT:PRINT" A 

L ' H O P I T A L": GOTO 3150 
3100 GOSUB 185:PRINT FNcuS(7,11);" 
RETOUR. DEPART ";FNfeS(2 


[ 6713 3 

[ 5168 3 

[ 3269 3 

C 4444 3 


2,0,11,90); 

3110 PRINT"D O M M A G E ! ! VOUS V 
ENEZ DE SORTIR DE LA VILLE" 

3120 PRINT:PRINT"A L'ENDROIT OU VOU 
S ETES ENTRE... Vu votre sens de 1" 
orientation...":PRINT:PRINT"laissez 
votre voiture et... VOYAGEZ PAR LE 

TRAIN.PRINT:PRINT"Et sans vous 
tromper de direction...":UUTU 3150 

3130 PRINT FNfeS(22,0,11,90);FNcuS< C 
10,40);"PRESSEZ <ESPACE>";;GOSUB 10 
40:PRINT FNfeS(2,21,13,50);cls$:PRI 
NT:PRINT" VOUS ETES E 

N PRISON":PRINT:PRINT" IL 

FAIT FROID MAIS COURAGE ! ! !" 

3140 PRINT:PRINT:PRINT" DANS [ 

QUELQUES JOURS VOTRE FAMILLE":PRIN 
T:PRINT" VIENDRA CERTAINEMEN 

T VOUS VOIR ! !" 

3150 PRINT FNfeS<22,0,11,90);FNcuS< I 
10,40);"PRESSEZ <ESPACE>";:GOSUB 10- 
40:GOTO 3410 

3160 PRINT CHRS(7);FNcuS(31,36);"PR [ 
ESSEZ UNE TOUCHE" ;: WH ILE INKEYSO"" 

: VEND 

3170 WHILE INKEY$="":x=RND:WEND [ 

3180 FOR i = l TO 7:viS(I)=STRINGS(24 C 
0,48):NEXT:fS="" 

3190 PRINT clsS:PRINT FNcuS<10,29); C 
"UN INSTANT LA VILLE SE CONSTRUIT"; 
CHRS(7) 


3200 A=80:E=80:D=1:P=20 C 

3210 K=1:CS=1:BL=1:AG=0:CL=0:KM=0 : R I 
S=1 

3220 FOR 1=1 TO 80 C 

3230 X= INT (RND* 1600.) + 1: li=INT(x/240 I 
. 1)+1:1 q=x-< 240* <li-l>): IF MIDS(vis 
(li),lo,1)<>"0" THEN 3230 
3240 IF x=20 OR x=1580 THEN 3230 C 
3250 MIDS(vis(li),lo,1)="3":NEXT i C 
3260 FOR 1=1 TO 80 C 

3270 X=INT(RND*1600> +1: 1i=INT <x/240 C 
. 1)+1:lo=x-(24 0*(li-1)): IF MIDS(viS 
(li),lo,1)<>"0" THEN 3270 
3280 IF x=20 OR x=1580 THEN 3270 C 
3290 MIDS<vi$(li),lo,1)="4" : NEXT i C 
3300 PRINT FNcuS<14,21);"ENCORE UN t 
PEU DE PATIENCE LE BETON N'EST PAS 
SEC ! ! !" ;CHRS(7) 

3310 FOR 1=1 TO 90 C 

3320 X=INT(RND*1600)+1: 1i = INT(x/24 0 C 
.1)+1: lo=x—(240* <li-l)): IF MIDS(vi$ 
(li),lo,1)<>"0" THEN 3320 
3330 IF x=20 OR x=1580 THEN 3320 C 
3340 MIDS(viS(li),lo,1)="2":NEXT i C 
3350 FOR 1=1 TO 90 C 

3360 X=INT(RND*1600)+1: 1i=INT <x/24 0 C 
. 1)+1:1o=x—<240* <11-1)): IF MIDS(viS 
(li),lo,1)<>"0" THEN 3360 
3370 IF x=20 OR x=1580 THEN 3360 C 
3380 MIDS <vi$ (li) , la, l)f=" 1" : NEXT i C 
3390 X=20:Y=40 C 

3400 PRINT CHRS(7):RETURN t 

3410 CALL gels:PRINT FNfe$(0,0,32,9 C 
0);clsS;cursaffS : GOTO 3450 
3420 CALL gdraw(a%, b%):RETURN C 

3430 CALL gmove<a%,b%):RETURN C 

3450 a%=0:b%=0:CALL gorigin<a%,b%) : t 
CALL gmode <a%) 

3460 a%=388:b%=21<.GOSUB 3430:a%=53 t 
6:GOSUB 3420 :a%=561:GOSUB 3430:a%=7 


t 3749 I 
[ 14092 ] 


11958 I 


7720 3 


4869 3 


4712 I 


1988 I 
2992 I 

4947 3 


1284 I 
2308 3 

1008 ] 
5408 ] 


1802 ] 
1948 ] 
1012 3 
5416 I 


1810 3 
1953 3 
5202 ] 


1009 3 
5408 3 


1802 3 
1947 3 
1013 3 
5416 3 


1810 3 
1950 3 
.794 3 
1591 3 
3729 3 

1790 3 
1800 ] 
2869 3 

9982 3 


62 




16 :GOSUB 3420 :b%=46:GOSUB 3420:a%=5 
61 :GOSUB 3420:a%=536:GOSUB 3430:a%= 
388: GOSUB 342.0 : b%=210 : GOSUB 3420 
3470 PRI HT FHcu$<1,26);"* * V O T [ 
RE PARCOURS * *";FNcuS 
(4,65);"sortie";FNcuS(27,65);"entré 
e";FNcuS(4, 1); "DISTANCE PARCOURUE " 

; USING" 2f##" ; km: PRINT FNcuS <4,24 ) ; ” k 
ilomètres" 

3472 PRINT FNcuS(7, 5) ; "POSITIONNEME C 
NT" : PRINT: PRINT"' E -> essences" 

:PRINT: PRINT" G -> garages":PRI 

NT:PRINT" B -> banques":PRINT:P 

RINT" P -> polices":PRINT:PRINT 

" T -> total" 

3475 ff=500:GOSUB 3480:GOTO 3560 C 
3480 a7,=549: b%=44: GOSUB 3430:b%=50: T 
GOSUB 3420 

3490 a%=549:b%=50: FOR i = l TO LEN(fS [ 
):j =VAL(MIDS(fS,i,1)) 

3500 ON j GOTO 3510,3520,3530,3540 [ 


3510 b%=B%+4: GOTO 3550 I 
3520 a%=a%+8: GOTO 3550 [ 
3530 b%=b%-4: GOTO 3550 t 
3540 a%=a%-8 I 


355.0 GOSUB 3420: FOR t=l TO f f : NEXT £ 
t:NEXT i:a%=a%-l:GOSUB 3430 :a%=a%+3 
:GOSUB 3420 :b%=b%+l:GOSUB 3430 :a%=a 
%-3:GOSUB 3420:RETURN 

3560 PRINT FNf e$(24,0,11,46);cls$;" [ 
VOULEZ-VOUS UN POSITIONNEMENT ? (O/ 
N)":GOSUB 1040 

3570 IF q$<>"O"THEN RUN [ 

3580 PRINT clsS;"LEQUEL ? ( E-G-B-P £ 
-T )":GOSUB 1040 

3590 IF q$="E"THEN aS="2":GOTO 3650 £ 
3600 IF q$="G"THEN a$="l":GOTO 3650 £ 
3610 IF q$="B"THEN a$="3":GOTO 3650 £ 
3620 IF q$="P"THEN a$="4":GOTO 3650 f 
3622 IF qS="T"THEN aS="5":GOTO 3650 £ 


10921 ] 


11913 3 


1883 I 
2564 I 

3181 3 

1814 I 
1203 I 

1206 I 

1207 1 
602 I 
7621 3 


5262 I 


1412 ] 
3007 3 

1955 3 
1948 3 
1946 3 
1962 3 
2001 3 


3624 GOTO 3560 £ 

3630 IF aS="5"THEN 3635 £ 

3632 IF MIDS(vi$(j),d,l)=aS THEN GO £ 
SUB 3642:RETURN ELSE RETURN 
3635 IF MIDS(vis(j) , d, 1)<>"0" THEN £ 
GOSUB 3642:RETURN ELSE RETURN 
3642 CALL groove(a%, b%) : a%=a%+3:CALL { 
gdraw(a%,.b%) : RETURN 
3650 PRINT clsS;QS;FNfeS(6,49,20,40 £ 
);clsS:ff=l;GOSUB 3480 


3652 b%=20'5: FOR j=l TÛ 7 £ 

3660 FOR i = l TO 40 :a%=387+(i*8) : d=i £ 
:GOSUB 3630 

3662 NEXT:b%=b%-4 £ 

3670 FOR i = l TO 40 :a%=387+(i*8>:d=i £ 
+40:GOSUB 3630 

3672 NEXT:b%=b%-4 £ 

3680 FOR i = l TO 40: a7,=387+(i*8) : d=i E 
+80:GOSUB 3630 

3682 NEXT:b%=b%-4 £ 

3690 FOR i = l TO 40 :a%=387+(i*8>:d=i E 
+120:GOSUB 3630 

3692 NEXT:b%=b%-4 £ 

3700 FOR i = l TO 40 :a%=387+(i*8):d=i £ 
+160:GOSUB 3630 

3702 NEXT:b%=b%—4 £ 

3710 FOR i = l TO 40 :a%=387+(i*8):d=i E 
+200:GOSUB 3630 

3712 NEXT:b%=b%-4:NEXT j : GOTO 3560 £ 


790 3 
1238 3 
3834 3 

3913 I 

3299 3 

3371 I 

1342 I 
2628 I 

982 3 
2772 3 

983 I 
2777 ] 

984 3 
2821 3 

985 3 
2817 3 

977 I 
2813 ] 

2070 3 
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1 

’ La ville infernale - chargeur 

E 

2228 3 

JL 

20 

1 

£ 

169 3 

30 

• CHARGEUR 1 - chargeur de RSX b 

£ 

2903 3 

asic etendu 



40 

1 

E 

171 3 

50 

MEMORY &HF3FF 

E 

1009 3 

60 

DATA C5, D5,23,7E, 32, B0, F4,23,7E, 

E 

9159 3 

32, 

Bl, F4,3E, 80,32,32, F4,3E, F4,32, B3 




, F4, 11, B0, F4,0E, 98, CD, 05, 00, 11, 80, F 
4,0E, 13, CD, 05, 00, 11,80, F4,0E, 16, CD, 

05, 00, El, 5E, 23,56, El, 4E, 23,46, D5, C5 

70 DATA ED,53,00,F4,ED,43,02,F4,0E, £ 10199 3 

IA, 11,00, F4, CD, 05, 00,0E, 15, 11,80, F4 
, CD, 05,00, El, 29, 24,44, Dl, C5, D5,0E, 1 
A,CD,05,00, 11,80,F4,0E, 15,CD,05,00, 

Dl,EB,11,80,00,19,EB,Cl,10,E7,11,80 
, F4,0E, 10, CD,05,00, C9 

80 DATA D5,23,7E,32,BO,F4,23,7E,32, £ 9151 ] 

Bl,F4,3E,80,32,B2, F4,3E, F4,32, B3, F4 
, 11, BO, F4, OE, 98, CD, 05,00, 11,80, F4,0 
E,OF,CD,05,00,FE,00,CO,11,00,F4,OE, 

IA, CD, 05,00, 11,80, F4, OE, 14, CD, 05, 00 

90 DATA El,5E,23,56,2A,02,F4,E5,29, £ 9253 I 

44, D5,78, FE, 00,28, 18, C5, D5, OE, 1A.CD 
,05,00,11,80,F4,OE,14,CD,05,00,El,1 
1,80,00, 19, EB, Cl, 10..E8, D5, Cl, EB, Dl, 

AF, ED, 52, EB, El, ED, 52, C5, E5, 11,00, F4 

100 DATA OE, IA,CD,05,00,11,80,F4,OE £ 4955 I 
, 14, CD, 05,00, Cl, 21,00, F4, Dl, ED, BO, 1 
1,80, F4, OE, 10, CD, 05,00, C9 

110 FOR i = l TO 119:READ nS:n=VAL("& £ 3712 I 
h"+n$):POKE &HF4DF+1,n:NEXT 

120 FOR i=l TO 141:READ nS:n=VAL("& £ 3678 ] 
h" +n$ ) : POKE &HF556 + 1, n : NEXT 

130 DELETE 50-130 £ 941 ] 



10 1 La ville infernale - chargeur £ 2229 ] 
2 

20 1 E 169 I 

30 * CHARGEUR 2 — a effacer apres 1 E 2681 ] 

ancement 

40 1 - ' £ 171 ] 

50 ’ chargeur de R SX graphique £ 1961 I 

60 1 £ 173 I 

70 1 ATTENTION ce chargeur ne fonct £ 3275 I 

ionne qu’apres 

80 * avoir lancé le RSX basic étend E 3094 I 
u (vchargel) 

90 1 £ 176 3 

100 MEMORY &HF07F: bsave%=&HF4E0 : nom E 3085 3 
S="VGRAPH.BIN" 

110 DATA 07CF079406AA07DC07E609460A E 2298 3 
1C0A36 

120 DATA 09B00B48092A0974053805E006 £ 2235 3 
A6054E 

130 DATA 07170B420B5606B20B10062D09 E 2221 3 
7407F1 

140 DATA 092E097E0A180AFE0A12080508 E 2272 3 
6A0886 

150 DATA 0A7F098209EC0A61086F04FC04 E 2270 3 
110553 
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La ville infernale 


160 DATA 

0623 

C 

700 : 

] 

520 DATA B7ED524D4403E1D1EBC5D5E5CD 

t 

2395 

3 

170 DATA 

CD5AFCC200AF2180F506307723 

[ 

2332 

3 

18F5E1 




10FCC9 





530 DATA D1C1130BAFB920F1B820EEC9C5 

C 

2356 

3 

180 DATA 

7E3280F5C97E3D200AAF32C2F1 

[ 

2356 

3 

EB0601 




3C32BF 





540 DATA 7CB720097ABD3805652E000609 

C 

2287 

3 

190 DATA 

F11808AF32BFF13C32C2F10102 

C 

2304 

3 

7B957A 




0621BD 





550 DATA 9C3805042930F63F3F78444D21 

[ 

2249 

3 

200 DATA 

F15EE5C5CD0500C1E12310F5C9 

C 

2302 

3 

00003D 




1B6300 





560 DATA 2003181729F5781F47791F4F7B 

[ 

2287 

3 

210 DATA 

1B62004E2346C5EB5E2356E1C9 

C 

2335 

3 

917A98 




CDC3F1 





570 DATA 3805577B915F2CF13D20E937C1 

[ 

2093 

3 

220 DATA 

2286F5ED5388F5C9ED5B82F518 

C 

2373 

3 

C9 




04ED5B 





580 DATA F09AF09EFOA4FOA8FOAEFOCDFO 

[ 

2448 

3 

230 DATA 

84F5732372C9CDC3F1E52A88F5 

c 

2363 

3 

E6F0F5 




19EBC1 





590 DATA F100F10BF112F119F128F12BF1 

C 

2340 

3 

240 DATA 

2A86F509C9CDE6F12282F5ED53 

c 

2375 

3 

7FF19A 




84F5C9 





600 DATA F1A9F1CCF1F1F1F4F1F9F218F2 

I 

2393 

3 

250 DATA 

CD19F22282F5ED5384F5C9CD19 

c 

2384 

3 

1BF220 




F2CD18 





610 DATA F22DF271F290 

[ 

1184 

3 

260 DATA 

F5C9CD19F2CD1EF5C9CDC3F1E5 

t 

2446 

3 

620 DIM test%<41> : m=0: FOR 1 = 1 TO 6:' 

C 

3388 

3 

2A84F5 





READ a$: lena=LEN<a$>/4 




270 DATA 

19EBC12A82F509C9CDE6F10134 

c 

2379 

3 

630 FOR j = l TO lena: b=VAIT(" &h" +MID$ 

[ 

4902 

3 

F2CD5A 





(a$, 4# <j — 1 > +1,4) ) : TQ=m+l : test% <jn) =b: 




280 DATA 

FCE900C9E57B2F5FD5E5CB3FCB 

t 

2474 

3 

ÎTEXT j : NEXT 1 




3FCB3F 





640 m=&HF080-l: FOR 1 = 1 TO 41:READ a 

C 

3380 

3 

290 DATA 

5F21005A0608293001191OFAEB 

t 

2288 

3 

$ :lena=LEN<a$ )/2: tot=0 




E1CB3C 





650 FOR J=1 TO lena:b=VAL<"&h"+MID$ 

[ 

4847 

3 

300 DATA 

CB1DCB3CCB1DCB3D190603CB25 

[ 

2370 

3 

<a$, 2* J -1,2)) : m=m+l: tot=tot+b: POKE 




CB1410 





m, b:NEXT j 




310 DATA 

FAI1305919D17BE60716005F19 

t 

2295 

3 

660 IF totOtestü (1 ) THEN PRINT" Er 

[ 

7319 

3 

D17BE6 





reur en ligne " , 160+10-*i, " ou en 11 




320 DATA 

0720043E801807473E80CB3F10 

c 

2304 

3 

gne ",110+10*FIX((i-l)/8),HEXS<tot, 




FC5ECD 





4),HEX$<test%(i) , 4> 




330 DATA 

84F277C9573A80F5FE00280BFE 

[ 

2305 

3 

670 NEXT 1 

c 

613 3 


012803 





680 FOR 1=1 TO 4:READ a$:lena=LEN<a 

c 

2301 

3 

340 DATA 

7AABC97A2FA3C97AB3C9CDE6F1 

[ 

2468 

3 

$> /4 




EBD5E5 





690 FOR j=l TO lena:b=VAL<"&h"+MIDS 

[ 

2707 

3 

350 DATA 

E52A82F5B7ED52E5C1FABCF22A 

[ 

2430 

3 

<a$,4*j-3,4)) 




82F5EB 





700 POKE b+2, <PEEK<b+2>-l>:NEXT j:N 

[ 

2394 

3 

360 DATA 

2282F52A84F5E32284F5180821 

c 

2246 

3 

EXT 1 




0000B7 





710 dep%=&HF080:lon%=654:CALL bsave 

I 

3154 

3 

370 DATA 

ED42E5C1D12A84F5B7ED52EBF2 

[ 

2393 

3 

% <nom$, depX, lon%) 




E1F221 









380 DATA 

0000B7ED52E5D1B7ED42210100 

[ 

2249 

3 





303118 





'■ . ^ - ", 




390 DATA 

0AD5E1B7ED4221FFFF301322B0 

I 

2366 

3 





F4C5E1 









400 DATA 

AF32ABF332B8F33E2332C2F318 

[ 

2332 

3 

10 ' La ville infernale - chargeur 

[ 

2230 

3 

26E52A 





3 




410 DATA 

82F5092282F52A84F5B7ED5222 

[ 

2314 

3 

20 1 

[ 

169 ] 


84F5E1 





30 ' CHARGEUR 3 - a effacer après 1 

I 

2736 

3 

420 DATA 

22B0F4C5E1EB3EEB32ABF332B8 

c 

2377 

3 

ancement 




F33E13 





40 ■ 

[ 

171 3 


430 DATA 

32C2F3AF32B2F413ED53B4F423 

[ 

2382 

3 

50 'chargeur pour transfert de tabl 

c 

3403 

3 

CDCCF3 





e de caractères 




440 DATA 

22B6F4ED53B8F4ED4BB4F4C5D1 

c 

2439 

3 

60 ' 

c 

173 3 


CB3ACB 





70 OPEN "O",1,"VCODE. TXT" 

t 

1496 

3 

450 DATA 

1BC5ED4BB6F42AB8F419EB2AE4 

[ 

2444 

3 

60 FOR 1=1 TO 11:READ aS:FOR J=1 TO 

[ 

5285 

3 

F4B7ED 





31 STEP 2 :a=VAL <"&H"+MID$(a$,j,2)) 




460 DATA 

52300719EBB7ED52EB03D53AB2 

c 

2343 

3 

:PRINT #1,a:NEXT j,1 




F4B728 





90 PRINT #1, 16,238,201 : CLOSE #1 

[ 

1737 

3 

470 DATA 

1D2A82F5E5D1092282F5E5C10B 

I 

2333 

3 

100 DATA C395F4C3B2F4C3E7F4DD210100 

t. 

2344 

3 

2A84F5 





DD6E00 




480 DATA 

E5CDABF3D12AB0F4192284F518 

t 

2361 

3 

110 DATA DD660111570019113000010300 

c 

2201 

3 

1D2A84 





EDB0C9 




490 DATA 

F5E5D1092284F5E5C10BEBED5B 

[ 

2394 

3 

120 DATA CD7EF4019FF4F7E900C9DD2131 

c 

2407 

3 

82F5D5 





F5DD5E 




500 DATA 

CDABF3D12AB0F4192282F5D1C1 

t 

2358 

3 

130 DATA 00DD56012100B8010008EDB0C9 

c 

2300 

3 

0B78E1 





CD7EF4 




510 DATA 

209FE12284F5E12282F5C9EBE5 

r 

2332 

3 

140 DATA 01BCF4F7E900C9DD2131F5DD5E 

r 

2373 

3 

D56960 





00DD56 
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150 DATA 01D5DDE1FD2100B8010008FD66 [ 
00DD6E 

160 DATA 00DD7400FD7500DD23FD230B3E [ 
FFB820 

170 DATA EAC9CD7EF401F1F4F7E900C9DD [ 
2128F5 

180 DATA DD6E002600292929EB2100B819 [ 
E5DDE1 

190 DATA FD2131F5FD6E00FD660119E5FD C 
E10608 * 

200 DATA DD6E0QFD6600FD7500DD7400DD [ 
23FD23 


2321 3 
2344 1 
2410 1 
2309 3 
2350 ] 
2346 3 


-# 


10 ' La ville infernale - chargeur [ 2231 3 
4 

20 * C 169 3 

30 ' ce chargeur est à effacer apré C 3201 3 

s utilisation 

40 * C 171 3 

50 ‘chargeur 4 — pour nouvelle tab [ 3348 3 

le de caractères 

60 ' C 173 3 

70 OPEN “O",1,"VJEU.CAR" C 1399 3 

80 FOR i = l TO 128:READ b$:FRINT #1, C 2157 3 

b$ 

90 NEXT i:PRINT #1C3": CLOSE #1 C 1910 3 
100 DATA 000066DBDBDB66003C42819981 l 2257 3 
423C00 

110 DATA FEC6C0COCOCOCOO01038386C6C [ 2332 3 
C6FE00 

120 DATA 3C42A599A5423C000000002418 L 2168 3 
240000 

130 DATA 000018007E0018000000181800 1 2118 3 
666600 

140 DATA FE6C6C6C6C6C6C00181818187E [ 2319 3 

3C1800 

150 DATA FEC6603060C6FE00002060FEFE [ 2285 3 

602000 

160 DATA 00080CFEFE0C08000018187E18 [ 2265 3 

187E00 

170 DATA 002466FFFF6624007CC6C6C6C6 l 2351 3 
6CEE00 

180 DATA 000073DECCDE73007CC6C6FCC6 C 2391 3 
C6F8C0 

190 DATA 66663C6666663C003C603C6666 C 2248 3 
663C00 

200 DATA 00001E307C3Ü1E00386CC6FEC6 C 2269 3 
6C3800 

210 DATA 00C06030386CC6000000666666 [ 2192 3 
7C6060 

220 DATA 0000FE6C6C6C6C0000003C6666 [ 2257 3 

7C6060 

230 DATA 00007ED8D8D870000073CE1818 [ 2246 3 
180C00 

240 DATA 03063C66663C60C000E63C1838 [ 2254 3 

6CC700 

250 DATA 03066666663C60C0000066C3DB. C "§263 3 
DB7E00 

260 DATA 00000000000000001818181818 [ 2088 3 
001800 

270 DATA 6C6C6C00000000006C6CFE6CFE [ 2321 3 

6C6C00 

280 DATA 183E583C1A7C180000C6CC1830 [ 2269 3 

66C600 

290 DATA 386C3876DCCC76001818180000 [ 2214 3 
000000 

300 DATA OC18303030180C0030180COCQC C 2175 3 


183000 

310 3ÎATA 00663CFF3C6600000018187E18 
180000 

320 DATA 00000000001818300000007E00 
000000 

330 DATA 0000000000181800060C183060 
C08000 

340 DATA 386CCED6E66C38001838181818 
187E00 

350 DATA 3C66063C60667E003C66061C06 
663C00 

360 DATA 1C3C6CCCFE0C1E007E62607C06 
663C00 

370 DATA 3C66607C66663C007E66060CT8 
181800 

380 DATA 3C66663C66663C003C66663E06 
663C00 

390 DATA 00001818001818000000181800 
181830 

400 DATA OC18306030180C0000007E007E 
000000 

410 DATA 6030180C183060003C66660C18 
001800 

420 DATA 300C780C7CCC7600183C66667E 
666600 

430 DATA FC66667C6666FC003C66C0C0C0 
663C00 

440 DATA F86C6666666CF800FE62687868 
62FE00 

450 DATA FE6268786860F0003C66C0C0CE 
663E00 

460 DATA 6666667E666666007E18181818 
187E00 

470 DATA 1E0C0C0CCCCC7800E6666C786C 
66E600 

480 DATA F06060606266FE00C6EEFEFED6 
C6C600 

490 DATA C6E6F6DECEC6C6007CC6C6C6C6 
C67C00 

500 DATA FC66667C6060F0007CC6C6C6DA [ 
CC7600 

510 DATA FC66667C6C66E6003C66603C06 [ 
663C00 

520 DATA 7E5A181818183C006666666666 [ 
663C00 

530 DATA 66666666663C1800C6C6C6D6FE [ 
EEC600 

540 DATA C66C38386CC6C6006666663C18 C 
183C00 

550 DATA FEC68C183266FE003844380000 C 
000000 

560 DATA 00003C60603C00181E30386C38 C 
18F000 

570 DATA 183C7E18181818000000000000 C 
0000FF 

580 DATA 30180C00000000000000780C7C C 
CC7600 

590 DATA E0607C666666DC0000003C6660 l 
663C00 

600 DATA 1COC7CCCCCCC760000003C667E [ 
603C00 

610 DATA 1C3630783030780000003E6666 C 
3E067C 

620 DATA E0607C666666E6001800381818 C 
183C00 

630 DATA 06000E060666663CE060666C78 C 
6CE600 

640 DATA 3818181818183C0000006CFED6 [ 
D6C600 

650 DATA 0000DC666666660000003C6666 C 
663C00 


[ 2206 3 
C 2080 3 
l 2120 3 
C 2282 3 
t 2242 3 
[ 2332 3 
[ 2240 3 
2261 3 
2113 3 
2154 3 
2169 3 
2272 3 
2314 3 
2325 3 
2305 3 
2237 3 
2350 3 
2370 3 
2427 3 
2345 3 
2289 3 
2235 3 
2336 3 
2280 3 
2230 3 
2205 3 
2177 3 
2181 3 
2242 3 
2314 3 
2205 3 
2219 3 
2251 3 
2259 3 
2204 3 
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La ville infernale 


660 DATA 0000DC66667C60F0000076CCCC C 23H 3 
7C0C1E 

670 DATA 0000DC766060F00000003C603C l 220 7 3 
067C00 

680 DATA 30307C303036ICO00000666666 C 2179 3 
663E00 

690 DATA 00006666663C18000000C6D6D6 C 2253 3 
FE6C00 

700 DATA 00OOC66C386CC6000O00666666 C 2236 3 
3E067C 

710 DATA 000O7E4C18327E000C303C667E C 2239 3 
603C00 

720 DATA 300C006666663C00300C3C667E C 2227 3 
603C00 

730 DATA 0066000000000000FF03030000 C 2148 3 
0303FF 

740 DATA FF030300000000000000000000 C 2137 0 
0303FF 

750 DATA FF000000000000FF183C7EFF18 C 2256 ] 
181800 

760 DATA O00C0EFFFF0E0CO0181818FF7E C 2337 3 
3C1800 

770 DATA 003070FFFF7030002424272020 C 2194 3 
272424 

780 DATA 242424E4E42424242424E40404 C 2213 3 
FCOOOO 

790 DATA OOOOFFOOOOFF00002424E70000 C 2214 3 
FFOOOO 

800 DATA OOOOFC0404E424242424E40404 C 2202 3 
E42424 

810 DATA 0000FF0000E724242424E70000 C 2199 3 
E72424 

820 DATA 00000018180000001818181818 t 2099 3 
000000 

830 DATA 0000001F1F0000001818181FOF C 2155 3 
000000 

840 DATA 00000018181818181818181818 C 2155 3 
181818 

850 DATA 0000000F1F1818181818181F1F [ 2211 3 
181818 

860 DATA OOOOOOF 8 F 8 OOOOOOI 8 I 8 I 8 F 8 FO C 2179 3 
000000 

870 DATA OOOOOOFFFFOOOOOOI 8 I 8 I 8 FFFF [ 2244 3 
000000 

880 DATA 000000F0F8181818181818F8F8 C 2235 3 
181818 

890 DATA OOOOOOFFFF181818181818FFFF C 2300 3 
181818 

900 DATA 8080A090888482800101050911 t 2150 3 
214101 

910 DATA 03030303030303030000000000 C 2212 3 
COCOCO 

920 DATA 000000000000OOFFFFO0000000 C 2125 3 
000000 

930 DATA 00000000000000030000000000 C 2060 3 
OOOOCO 

940 DATA C0000000000000000300000000 C 2061 3 
000000 

950 DATA FF01010101010101FF08080808 C 2191 3 
080808 

960 DATA FF0303O3030303O3FFC0C0C0CO t 2283 3 
COCOCO 

970 DATA 0808080808080808C0C0C0FF00 C 2207 3 
000000 

980 DATA 030303FFOOOOOOOOCOCOCOCOCO t 2273 3 
COCOFF 

990 DATA 03030303030303FFFF80808080 C 2209 3 
808080 

1000 DATA FFFFFFFFFFFFFFFFFF1818181 C 2534 3 
8181818 

1010 DATA 18181818181818FF8040A050A t 2295 3 
854AA55 


1020 DATA 000102050A152A55AA55AA55A 
A55AA55 

1030 DATA AA552A150A050201AA54A850A 
0408000 

1040 DATA C0C0C0D0C8C4C2C00303030B1 
3234303 

1050 DATA OOOOOOFFOOOOOOOQ010204081 
0204080 

1060 DATA 8040201008040201000000FFO 
3030303 

1070 DATA OOOOOOFFCOCOCOCOO 8 O 8 O 8 O 8 O 
80808FF 

1080 DATA 030307070FOF1F1F8080COCOE 
OEOFOFO 

1090 DATA 0103070F1F3F7FFF80C0E0F0F 
8 FCFEFF 

1100 DATA 18663C6666663C00186666666 
6663C00 

1110 DATA 300C183C667E6600300C7E607. 
CS07E00 

1120 DATA 300C7E1818187E00300C3C666 
6663C00 

1130 DATA 300C666666663C006600663C1 
8181800 

1140 DATA 6600183C667E660066007E607 
C607E00 

1150 DATA 66007E1818187E0066003C666 [ 
6663C00 

1160 DATA 6600666666663C003C66COC06 C 
63C0018 

1170 DATA 3E78D8FED8D8DE001800183C6 C 
67E6600 

1180 DATA 7ACCCED6E666BC00324C00667 C 
66E6600 

1190 DATA 324C003C667E6600324C3C666 C 
6663C00 

12 00 DATA C0300C3 OCC30C000061860186 C 
6180600 

1210 DATA 060C7E187E3060000000324CO C 
.07E0000 

1220 DATA 0C30780C7CCC76000E1B18701 C 
8180E00 

1230 DATA 0C30003818183C000C30003C6 C 
6663C00 

1240 DATA 0C30006666663E001866780C7 [ 
CCC7600 

1250 DATA 18663C667E603C00186600381 t 
8183C00 

1260 DATA 1866003C66663C00186600666 [ 
6663C00 

1270 DATA 7CC6DEDEDEC07C007018180E1 C 
8187000 

1280 DATA 300C003818183C00300C003C6 C 
6663C00 

1290 DATA 1818181818181800660066666 C 
63E067C 

1300 DATA 6600780C7CCC760066003C667 [ 
E603C00 

1310 DATA 66003818T8183C006600003C6 C 
6663C00 

1320 DATA 6600006666663E00C06030180 C 
C060200 

1330 DATA 00006C1A7ED86E001800780C7 C 
CCC7600 

1340 DATA 00007ACCD666BC00324COODC6 t 
6666600 

1350 DATA 324C780C7CCC7600000000FFO C 
8080808 

1360 DATA F8F8F0F0E0E0C0C01F1F0F0F0 C 
7070303 

1370 DATA FFFEFCF8F0B0C080FF7F3F1F0 C 
F070301 


: 2313 ] 
: 2274 3 
: 2292 3 
2154 3 
2167 3 

2302 3 
2333 3 

2466 3 
2268 3 
2298 3 
2285 3 
2244 3 
2281 3 
2268 3 
2279 3 
2382 3 
2380 3 
2295 3 
2238 3 
2233 3 

2297 3 
2243 3 
2295 3 
2265 3 
2251 3 
2374 3 
2248 3 
2253 3 

2303 3 
2231 3 
2216 3 
2327 3 
2322 3 

2298 3 
2378 3 

2467 3 
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FINI DE JOUER : LISEZ 


w 


J i s s ^“::x<x^ e,pc - 

ensuel PRO que vous attendiez s 


AU SOMMAIRE DU N° 3 (sous réserve) 


EVENEMENT : Le PPC .640, portable Amstrad 
DOSSIER DU MOIS : L'intelligence artificielle : 

découvrir et utiliser les 
générateurs 
de systèmes experts. 
TESTS DE LOGICIELS : Eglantine médicale 

Microbase 

Excel 

Turbo Pascal 4.0 
Syrnéa 

EBP documentation 
TWIN 

REPORTAGE : Un PC 1 512 au CERN 









DISCOLOGY 


Version 5.0 pour Amstrad CPC 


POUR VOUS SURPASSER 


7 POINTS FORTS: 


> la facilité : Fenêtres, Menus Déroulants, Aide Intégrée. 

> La vitesse : 160 Ko de Langage Machine pur. 

> La performance : la copie de sauvegarde intégrale pour vos dis 
quettes et cassettes. Encore plus rapide, encore plus puissante. 

> La précision : un manuel complet et une notice technique 
approfondie. 

> L’inédit : un Editeur universel de secteurs, un DésassembleurZ 80, 
un Listeur Basic, un Exploreur en Temps Réel"... 

> La compatibilité : la gestion intégrale des extensions mémoire, 
des lecteurs 51/4 pouces. 

> Les références : des milliers d'utilisateurs satisfaits en France 
comme à l’Etranger. DISCOLOGY est reconnu et acclamé par la 
Presse Internationale. 


Que vous soyez un crack ou un débutant, DISCOLOGY vous 
propulse au-delà des limites du possible. Vous avez, en un 
clin d’œil, l'accès intégral à l'information contenue dans vos 
disquettes. 

Son Désassembleur intelligent, son Listeur Basic et sa boîte à 
outils complète ouvrent pour vous les portes de l'inaccessible. 
Pour toutes vos questions, l’Aide Intégrée apporte des répon¬ 
ses claires et intelligentes. Pour toutes vos ambitions, la Notice 
Technique vous livre les clés d'un monde inconnu. 

Un Editeur ultra-puissant, un Copieur hyper-performant, un 
Exploreur qui n’a pas froid aux yeux : un cocktail détonant 
qui vous permet de vous surpasser. Avec la version 5.0, tou¬ 
tes les manipulations deviennent faciles, tous les horizons 
s'ouvrent devant vous. Alors, n'attendez plus ! Partez à la 
découverte de la dimension cachée de vos disquettes. 


La disquette DISCOLOGY est disponible immédiatement chez votre revendeur. 

Vous pouvez également la commander sans frais de portà : MERIDIEN Informatique 
5 et 7, La Canebière - 13001 Marseille - Tél. : 91.94.15.53 

• Master Save, copieur de disquettes, est disponible au prix de 190 F. 

• Si vous commandez DISCOLOGY et possédez déjà Master Save, vous ne paierez que 
la différence. 


AM.HS 5 


Version 5.0 

Disponibilité immédiate. 


BON DE COMMANDE 

□ Je commande DISCOLOGY au prix de 350 F 

□ Je commande Master Save au prix de 190 F Je règle ma commande : 

□ Je possède déjà Master Save et je commande DISCOLOGY. □ par chèque joint (port gratuit) 

Je joins ma disquette Master Save et je ne paye que 160 F □ contre-remboursement (+ 30 F de frais de port) 

Nom :___Prénom :_ 
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Adresse 


Code Postal: 


Ville 


.Tél.:. 


A retourner à MERIDIEN Informatique - 5 et 7, La Canebière -13001 MARSEILLE 


/ük 

MERE 

INFORMATIQUE 


RIDIEN 


■ •: 


NEWS 91 50.80.41 

















































